projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
corrections
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
parmread.F
diff --git
a/source/unres/src-HCD-5D/parmread.F
b/source/unres/src-HCD-5D/parmread.F
index
2da8851
..
4da2913
100644
(file)
--- a/
source/unres/src-HCD-5D/parmread.F
+++ b/
source/unres/src-HCD-5D/parmread.F
@@
-2096,11
+2096,12
@@
C 12/1/95 Added weight for the multi-body term WCORR
do i=1,maxres
dyn_ss_mask(i)=.false.
enddo
do i=1,maxres
dyn_ss_mask(i)=.false.
enddo
- do i=1,maxres-1
- do j=i+1,maxres
+ do i=1,max_cyst-1
+ do j=i+1,max_cyst
dyn_ssbond_ij(i,j)=1.0d300
enddo
enddo
dyn_ssbond_ij(i,j)=1.0d300
enddo
enddo
+ call flush(iout)
call reada(weightcard,"HT",Ht,0.0D0)
if (dyn_ss) then
ss_depth=ebr/wsc-0.25*eps(1,1)
call reada(weightcard,"HT",Ht,0.0D0)
if (dyn_ss) then
ss_depth=ebr/wsc-0.25*eps(1,1)
@@
-2131,7
+2132,7
@@
C 12/1/95 Added weight for the multi-body term WCORR
write (iout,*) "BTRISS=", btriss
write (iout,*) "CTRISS=", ctriss
write (iout,*) "DTRISS=", dtriss
write (iout,*) "BTRISS=", btriss
write (iout,*) "CTRISS=", ctriss
write (iout,*) "DTRISS=", dtriss
- print *,'indpdb=',indpdb,' pdbref=',pdbref
+c print *,'indpdb=',indpdb,' pdbref=',pdbref
endif
return
end
endif
return
end