projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
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
#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
#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)
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
#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
#endif
enddo
else