X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMD_A-MTS.F;h=2dc00c11b408032b5f3dc8a841cc16fc7be430b6;hp=30f6ab1a6352c4cd2bd7bfabee0dd1111592f396;hb=2430cd844f8efb76824fb6bf18a013c2ec55552f;hpb=4ca1e88a5f4f23619f7eaa7edcc35d5c4aca9b8c

diff --git a/source/unres/src_MD-M/MD_A-MTS.F b/source/unres/src_MD-M/MD_A-MTS.F
index 30f6ab1..2dc00c1 100644
--- a/source/unres/src_MD-M/MD_A-MTS.F
+++ b/source/unres/src_MD-M/MD_A-MTS.F
@@ -230,6 +230,7 @@ c Variable time step algorithm.
 #endif
         endif
         if (mod(itime,ntwx).eq.0) then
+          write(iout,*) 'time=',itime
 C          call check_ecartint
           call returnbox
           write (tytul,'("time",f8.2)') totT