X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fenergy_split-sep.F;h=f79deea08130b8c7f74e10c50c855c20a9e386b5;hb=7d64cc3ff0edffb6aa37e309e4375f58bd5875a2;hp=b3f924b3e1fb9fa9305e900d5fbbc694c6ef0275;hpb=eab68ce2fb626e693cd1367fe2bcb717b98c587f;p=unres.git

diff --git a/source/unres/src_MD-M/energy_split-sep.F b/source/unres/src_MD-M/energy_split-sep.F
index b3f924b..f79deea 100644
--- a/source/unres/src_MD-M/energy_split-sep.F
+++ b/source/unres/src_MD-M/energy_split-sep.F
@@ -293,7 +293,7 @@ C
       call sum_energy(energia,.true.)
 C      call enerprint
 C      write (iout,*) "Exit ETOTAL_LONG"
-      call flush(iout)
+C      call flush(iout)
       return
       end
 c------------------------------------------------------------------------------
@@ -627,6 +627,6 @@ C      write (iout,*) "ETOTAL_SHORT before SUM_ENERGY"
       call flush(iout)
       call sum_energy(energia,.true.)
 C      write (iout,*) "Exit ETOTAL_SHORT"
-      call flush(iout)
+C      call flush(iout)
       return
       end