X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FMREMD.F;h=e25e2bdfacfc76e022b6d3a6bda195a9d94999ff;hb=8c073a2ffd0a50442e7fdf20780a0dd94ed74799;hp=f22e2f6acc0f08f35e39e28652a5e9266d8a9712;hpb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;p=unres.git

diff --git a/source/unres/src-HCD-5D/MREMD.F b/source/unres/src-HCD-5D/MREMD.F
index f22e2f6..e25e2bd 100644
--- a/source/unres/src-HCD-5D/MREMD.F
+++ b/source/unres/src-HCD-5D/MREMD.F
@@ -412,6 +412,7 @@ c   Entering the MD loop
         call setup_fricmat
       endif
       time00=MPI_WTIME()
+      time01=time00
       if (me.eq.king .or. .not. out1file)
      & write(iout,*) 'Setup time',time00-walltime
       call flush(iout)