6/11/2012 Update of the CSA version

[unres.git] / source / unres / src_MD / readrtns.F

diff --git a/source/unres/src_MD/readrtns.F b/source/unres/src_MD/readrtns.F
index 8f70874..4d8eb72 100644 (file)
--- a/source/unres/src_MD/readrtns.F
+++ b/source/unres/src_MD/readrtns.F
@@ -1098,7 +1098,7 @@ c        write (iout,*) "constr_dist",constr_dist,nstart_sup,nsup
         call hpb_partition
       endif
 c      write (iout,*) "After read_dist_constr nhpb",nhpb
-      call flush(iout)
+c      call flush(iout)
       if (indpdb.eq.0 .and. modecalc.ne.2 .and. modecalc.ne.4
      &    .and. modecalc.ne.8 .and. modecalc.ne.9 .and. 
      &    modecalc.ne.10) then