projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
TRISS debug
[unres.git]
/
source
/
wham
/
src-M
/
parmread.F
diff --git
a/source/wham/src-M/parmread.F
b/source/wham/src-M/parmread.F
index
87be54f
..
d4fa521
100644
(file)
--- a/
source/wham/src-M/parmread.F
+++ b/
source/wham/src-M/parmread.F
@@
-70,6
+70,11
@@
c If reading not own parameters, skip assignment
call reada(controlcard,"BTRISS",btriss,0.02D0)
call reada(controlcard,"CTRISS",ctriss,1.0D0)
dyn_ss=(index(controlcard,'DYN_SS').gt.0)
call reada(controlcard,"BTRISS",btriss,0.02D0)
call reada(controlcard,"CTRISS",ctriss,1.0D0)
dyn_ss=(index(controlcard,'DYN_SS').gt.0)
+ write(iout,*) "ATRISS",atriss
+ write(iout,*) "BTRISS",btriss
+ write(iout,*) "CTRISS",ctriss
+ write(iout,*) "DTRISS",dtriss
+
C do i=1,maxres
C dyn_ss_mask(i)=.false.
C enddo
C do i=1,maxres
C dyn_ss_mask(i)=.false.
C enddo