projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
BUG FIX in arcos.f
[unres.git]
/
source
/
cluster
/
wham
/
src-M
/
parmread.F
diff --git
a/source/cluster/wham/src-M/parmread.F
b/source/cluster/wham/src-M/parmread.F
index
2f2985c
..
1368050
100644
(file)
--- a/
source/cluster/wham/src-M/parmread.F
+++ b/
source/cluster/wham/src-M/parmread.F
@@
-34,8
+34,8
@@
C Assign virtual-bond length
vblinv=1.0D0/vbl
vblinv2=vblinv*vblinv
#ifdef CRYST_BOND
vblinv=1.0D0/vbl
vblinv2=vblinv*vblinv
#ifdef CRYST_BOND
- read (ibond,*) vbldp0,akp
- do i=1,ntyp
+ read (ibond,*) vbldp0,vbldpdum,akp
+ do i=1,ntyp
nbondterm(i)=1
read (ibond,*) vbldsc0(1,i),aksc(1,i)
dsc(i) = vbldsc0(1,i)
nbondterm(i)=1
read (ibond,*) vbldsc0(1,i),aksc(1,i)
dsc(i) = vbldsc0(1,i)
@@
-46,7
+46,7
@@
C Assign virtual-bond length
endif
enddo
#else
endif
enddo
#else
- read (ibond,*) ijunk,vbldp0,akp,rjunk
+ read (ibond,*) ijunk,vbldp0,vbldpdum,akp,rjunk
do i=1,ntyp
read (ibond,*) nbondterm(i),(vbldsc0(j,i),aksc(j,i),abond0(j,i),
& j=1,nbondterm(i))
do i=1,ntyp
read (ibond,*) nbondterm(i),(vbldsc0(j,i),aksc(j,i),abond0(j,i),
& j=1,nbondterm(i))