projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed uninitialized ghalf from equation
[unres.git]
/
source
/
cluster
/
wham
/
src-M
/
read_coords.F
diff --git
a/source/cluster/wham/src-M/read_coords.F
b/source/cluster/wham/src-M/read_coords.F
index
37951bd
..
5c6ca65
100644
(file)
--- a/
source/cluster/wham/src-M/read_coords.F
+++ b/
source/cluster/wham/src-M/read_coords.F
@@
-218,10
+218,17
@@
c call flush(iout)
call xdrfint_(ixdrf, nss, iret)
if (iret.eq.0) goto 101
do j=1,nss
call xdrfint_(ixdrf, nss, iret)
if (iret.eq.0) goto 101
do j=1,nss
+ 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)
if (iret.eq.0) goto 101
call xdrfint_(ixdrf, jhpb(j), iret)
if (iret.eq.0) goto 101
call xdrfint_(ixdrf, ihpb(j), iret)
if (iret.eq.0) goto 101
call xdrfint_(ixdrf, jhpb(j), iret)
if (iret.eq.0) goto 101
+ endif
enddo
call xdrffloat_(ixdrf,reini,iret)
if (iret.eq.0) goto 101
enddo
call xdrffloat_(ixdrf,reini,iret)
if (iret.eq.0) goto 101
@@
-243,10
+250,15
@@
c write (iout,*) "nss",nss
call flush(iout)
if (iret.eq.0) goto 101
do k=1,nss
call flush(iout)
if (iret.eq.0) goto 101
do k=1,nss
+ if (dyn_ss) then
+ call xdrfint(ixdrf, idssb(k), iret)
+ call xdrfint(ixdrf, jdssb(k), iret)
+ else
call xdrfint(ixdrf, ihpb(k), iret)
if (iret.eq.0) goto 101
call xdrfint(ixdrf, jhpb(k), iret)
if (iret.eq.0) goto 101
call xdrfint(ixdrf, ihpb(k), iret)
if (iret.eq.0) goto 101
call xdrfint(ixdrf, jhpb(k), iret)
if (iret.eq.0) goto 101
+ endif
enddo
call xdrffloat(ixdrf,reini,iret)
if (iret.eq.0) goto 101
enddo
call xdrffloat(ixdrf,reini,iret)
if (iret.eq.0) goto 101