update
[unres.git] / source / unres / src_MD-M-SAXS-homology / rmscalc.F
index ca33c4d..b467d9c 100644 (file)
@@ -117,7 +117,7 @@ c------------------------------------------------------------------------
         indchain=tabpermchain(ichain,iperm)
 c        write (iout,*) "ichain",ichain," iperm",iperm,
 c     &    " indchain",indchain
-        call flush(iout)
+c        call flush(iout)
         do k=3,chain_length(ichain)
           kchain1=chain_border(1,ichain)+k-1
           kchain2=chain_border(1,indchain)+k-1