X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-SAXS-homology%2Frmscalc.F;h=b467d9c0353d645f2f2ffc4b32232266a46f64e4;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=ca33c4d9805ed69cbf002464732a53a0971890a1;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git diff --git a/source/unres/src_MD-M-SAXS-homology/rmscalc.F b/source/unres/src_MD-M-SAXS-homology/rmscalc.F index ca33c4d..b467d9c 100644 --- a/source/unres/src_MD-M-SAXS-homology/rmscalc.F +++ b/source/unres/src_MD-M-SAXS-homology/rmscalc.F @@ -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