X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Frmscalc.f;h=e14e115f4ceccfd8df76b08eed42d5cdc6aad7cb;hb=e26610dc1d9f408822f8530f2dca7a04fc36c637;hp=8e0b88aeef1da938ca6c547eb21ec64d65a00425;hpb=7006db11d703450fb82ce20cfc53f74614334362;p=unres.git diff --git a/source/wham/src-M/rmscalc.f b/source/wham/src-M/rmscalc.f index 8e0b88a..e14e115 100644 --- a/source/wham/src-M/rmscalc.f +++ b/source/wham/src-M/rmscalc.f @@ -161,7 +161,7 @@ c------------------------------------------------------------------------- C write (iout,*) "tu2", nres,nsup noverlap=nres if (nres.gt.nsup) noverlap=nsup - write (iout,*) "tu3,",noverlap +c write (iout,*) "tu3,",noverlap do i=1,symetr nperm=nperm*i enddo