X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD-5D%2Fcxread.F;fp=source%2Fwham%2Fsrc-HCD-5D%2Fcxread.F;h=3f6c70bc1434484f7b8f84ea26d9e7d8ab3a1992;hb=4f0aefffb3277492cac65561d39aa45e7dc34aa5;hp=2cfb93817dfdd087665964404cc5595849ff59b4;hpb=579923ef5142373a0bb18cb884bc62d6f1f3f277;p=unres.git diff --git a/source/wham/src-HCD-5D/cxread.F b/source/wham/src-HCD-5D/cxread.F index 2cfb938..3f6c70b 100644 --- a/source/wham/src-HCD-5D/cxread.F +++ b/source/wham/src-HCD-5D/cxread.F @@ -69,8 +69,6 @@ c call flush(iout) if (dyn_ss) then call xdrfint(ixdrf, idssb(j), iret) call xdrfint(ixdrf, jdssb(j), iret) - idssb(j)=idssb(j)-nres - jdssb(j)=jdssb(j)-nres else call xdrfint_(ixdrf, ihpb(j), iret) call xdrfint_(ixdrf, jhpb(j), iret)