update

[unres.git] / source / unres / src_MD-M-SAXS-homology / checkder_p.F

diff --git a/source/unres/src_MD-M-SAXS-homology/checkder_p.F b/source/unres/src_MD-M-SAXS-homology/checkder_p.F
index 0a0c1c6..03df287 100644 (file)
--- a/source/unres/src_MD-M-SAXS-homology/checkder_p.F
+++ b/source/unres/src_MD-M-SAXS-homology/checkder_p.F
@@ -297,12 +297,11 @@ c      aincr=1.0D-7
         call etotal(energia(0))
         etot=energia(0)
         call enerprint(energia(0))
-        call flush(iout)
 c        write (iout,*) "enter cartgrad"
-        call flush(iout)
+c        call flush(iout)
         call cartgrad
 c        write (iout,*) "exit cartgrad"
-        call flush(iout)
+c        call flush(iout)
         icall =1
         write (iout,'(//27(1h*)," Checking energy gradient ",27(1h*))')
         write (iout,'(//4x,3a12,3x,3a12)')"gcart_x","gcart_y","gcart_z",