X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FMD_A-MTS.F;h=76bec98d076e58cb287c041c50c3b0f59b4afa7d;hb=a05e8996b6fb955dc21aef7a85db21ee73d0a9d3;hp=1bc0eb236597a581f25a4621fb5156a9a50fee67;hpb=c711143ad3fffb04d27b55aa823f399b8343c4c5;p=unres.git

diff --git a/source/unres/src-HCD-5D/MD_A-MTS.F b/source/unres/src-HCD-5D/MD_A-MTS.F
index 1bc0eb2..76bec98 100644
--- a/source/unres/src-HCD-5D/MD_A-MTS.F
+++ b/source/unres/src-HCD-5D/MD_A-MTS.F
@@ -2312,6 +2312,7 @@ c        write (iout,*) "ichain",ichain," innt",innt," inct",inct
           enddo
         end if
       enddo
+      d_t(:,nct)=0.0d0
 c      d_a(:,0)=d_a(:,1)
 c      d_a(:,1)=0.0d0
 c      write (iout,*) "Shifting accelerations"