projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's changes
[unres.git]
/
source
/
wham
/
src-HCD-5D
/
initialize_p.F
diff --git
a/source/wham/src-HCD-5D/initialize_p.F
b/source/wham/src-HCD-5D/initialize_p.F
index
baf3aa2
..
a2281e5
100644
(file)
--- a/
source/wham/src-HCD-5D/initialize_p.F
+++ b/
source/wham/src-HCD-5D/initialize_p.F
@@
-183,7
+183,7
@@
C Initialize the bridge arrays
do i=1,maxss
iss(i)=0
enddo
do i=1,maxss
iss(i)=0
enddo
- do i=1,maxdim
+ do i=1,maxdim_cont
dhpb(i)=0.0D0
enddo
do i=1,maxres
dhpb(i)=0.0D0
enddo
do i=1,maxres
@@
-396,7
+396,7
@@
c---------------------------------------------------------------------------
include 'COMMON.IOUNITS'
include "COMMON.TORCNSTR"
logical scheck,lprint
include 'COMMON.IOUNITS'
include "COMMON.TORCNSTR"
logical scheck,lprint
- lprint=.false.
+ lprint=.true.
do i=1,maxres
nint_gr(i)=0
nscp_gr(i)=0
do i=1,maxres
nint_gr(i)=0
nscp_gr(i)=0