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(26,iparm)=wtube
 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)
+      wtube=ww_all(26,iparm)
 c Restore bond parameters
       vbldp0=vbldp0_all(iparm)
       akp=akp_all(iparm)