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=07eee9774e7767e29ff5209a4556ad3b1dc6a8f8;hp=acbffa94032c9eef5ea10b7a23be3d0c490eee3a;hpb=c092a8655963478b90eb630150c75ff5775f45f0;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