X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FMD_A-MTS.F;h=d4d6be688b71f0664cb0610d2dab964b8b41a35c;hb=8d727996b0432a6a54d16dccd13a2cb6559a9d75;hp=acbffa94032c9eef5ea10b7a23be3d0c490eee3a;hpb=ddaf3c773f857b9690066a5904bf5ae84a263cd2;p=unres.git diff --git a/source/unres/src_MD/MD_A-MTS.F b/source/unres/src_MD/MD_A-MTS.F index acbffa9..d4d6be6 100644 --- a/source/unres/src_MD/MD_A-MTS.F +++ b/source/unres/src_MD/MD_A-MTS.F @@ -1857,7 +1857,7 @@ c Removing the velocity of the center of mass call chainbuild_cart call kinetic(EK) if (tbf) then - call verlet_bath(EK) + call verlet_bath endif kinetic_T=2.0d0/(dimen3*Rb)*EK if(me.eq.king.or..not.out1file)then