X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fcxread.F;h=c4cc7bb0836af7fec7b790b59edc9b12e2b58505;hb=14b55af23c7da34bfdc10f315551c8e01a3a906a;hp=e29fb243374dcdac8e7ce110bc5b3c9999f8e316;hpb=13279fc00959f1e7a4bf024637996dcf4c729e99;p=unres.git

diff --git a/source/wham/src-M/cxread.F b/source/wham/src-M/cxread.F
index e29fb24..c4cc7bb 100644
--- a/source/wham/src-M/cxread.F
+++ b/source/wham/src-M/cxread.F
@@ -64,8 +64,10 @@ c      write (iout,*) "rpotE",rpotE," iret",iret
       call xdrfint_(ixdrf, nss, iret)
       do j=1,nss
            if (dyn_ss) then
-            call xdrfint(ixdrf, idssb(j)+nres, iret)
-            call xdrfint(ixdrf, jdssb(j)+nres, iret)
+            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)
@@ -87,8 +89,8 @@ c      write (iout,*) "rpotE",rpotE," iret",iret
       call xdrfint(ixdrf, nss, iret)
       do j=1,nss
            if (dyn_ss) then
-            call xdrfint(ixdrf, idssb(j)+nres, iret)
-            call xdrfint(ixdrf, jdssb(j)+nres, iret)
+            call xdrfint(ixdrf, idssb(j), iret)
+            call xdrfint(ixdrf, jdssb(j), iret)
            else
             call xdrfint(ixdrf, ihpb(j), iret)
             call xdrfint(ixdrf, jhpb(j), iret)