cluster_wham

[unres.git] / source / cluster / wham / src-HCD / read_coords.F

diff --git a/source/cluster/wham/src-HCD/read_coords.F b/source/cluster/wham/src-HCD/read_coords.F
index 20abce5..09af6e6 100644 (file)
--- a/source/cluster/wham/src-HCD/read_coords.F
+++ b/source/cluster/wham/src-HCD/read_coords.F
@@ -221,11 +221,11 @@ c          call flush(iout)
               do k=1,nss
                 call xdrfint(ixdrf, idssb(k), iret)
                 call xdrfint(ixdrf, jdssb(k), iret)
-                ihpb(k)=iss(idssb(k)-nres)+nres
-                jhpb(k)=iss(jdssb(k)-nres)+nres 
+                ihpb(k)=iss(idssb(k))+nres
+                jhpb(k)=iss(jdssb(k))+nres 
 #ifdef DEBUG
-                write (iout,*) "jj",jj+1," dyn_ss:",idssb(k)-nres,
-     &            jdssb(k)-nres,ihpb(k),jhpb(k)
+                write (iout,*) "jj",jj+1," dyn_ss:",idssb(k),
+     &            jdssb(k),ihpb(k),jhpb(k)
 #endif
               enddo
             else
@@ -262,11 +262,11 @@ c            write (iout,*) "nss",nss
               do k=1,nss
                 call xdrfint(ixdrf, idssb(k), iret)
                 call xdrfint(ixdrf, jdssb(k), iret)
-                ihpb(k)=iss(idssb(k)-nres)+nres
-                jhpb(k)=iss(jdssb(k)-nres)+nres 
+                ihpb(k)=iss(idssb(k))+nres
+                jhpb(k)=iss(jdssb(k))+nres 
 #ifdef DEBUG
-                write (iout,*) "jj",jj+1," dyn_ss:",idssb(k)-nres,
-     &            jdssb(k)-nres,ihpb(k),jhpb(k)
+                write (iout,*) "jj",jj+1," dyn_ss:",idssb(k),
+     &            jdssb(k),ihpb(k),jhpb(k)
 #endif
               enddo
             else