X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Funres.F;h=632374b3cd0d7a0cd886190e32bfcaa887f907b1;hb=c3d632cf84fd647434c093cb3fd69ea605293f75;hp=b14c040d5ac0ea8683557bb3ce4ed283829a7d73;hpb=a7f4fb1b4bfdc26741358b5cf05d02524b8b6ba5;p=unres.git

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index b14c040..632374b 100644
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -56,8 +56,6 @@ c      call memmon_print_usage()
       if (me.eq.king) call cinfo
 C Read force field parameters and job setup data
       call readrtns
-      call flush(iout)
-C
       if (me.eq.king .or. .not. out1file) then
        write (iout,'(2a/)') 
      & text_mode_calc(modecalc)(:ilen(text_mode_calc(modecalc))),