projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
working cluster for nano parameters
[unres.git]
/
source
/
wham
/
src-M
/
store_parm.F
diff --git
a/source/wham/src-M/store_parm.F
b/source/wham/src-M/store_parm.F
index
f44b6f4
..
c8e42c0
100644
(file)
--- a/
source/wham/src-M/store_parm.F
+++ b/
source/wham/src-M/store_parm.F
@@
-41,6
+41,7
@@
c Store weights
ww_all(17,iparm)=wbond
ww_all(19,iparm)=wsccor
ww_all(22,iparm)=wliptran
ww_all(17,iparm)=wbond
ww_all(19,iparm)=wsccor
ww_all(22,iparm)=wliptran
+ ww_all(26,iparm)=wtube
c Store bond parameters
vbldp0_all(iparm)=vbldp0
akp_all(iparm)=akp
c Store bond parameters
vbldp0_all(iparm)=vbldp0
akp_all(iparm)=akp
@@
-316,6
+317,7
@@
c Restore weights
wbond=ww_all(17,iparm)
wsccor=ww_all(19,iparm)
wliptran=ww_all(22,iparm)
wbond=ww_all(17,iparm)
wsccor=ww_all(19,iparm)
wliptran=ww_all(22,iparm)
+ wtube=ww_all(26,iparm)
c Restore bond parameters
vbldp0=vbldp0_all(iparm)
akp=akp_all(iparm)
c Restore bond parameters
vbldp0=vbldp0_all(iparm)
akp=akp_all(iparm)