pierwsza proba merga devela do adasko

[unres.git] / source / wham / src / store_parm.F

diff --git a/source/wham/src/store_parm.F b/source/wham/src/store_parm.F
index a2960a9..f595856 100644 (file)
--- a/source/wham/src/store_parm.F
+++ b/source/wham/src/store_parm.F
@@ -227,6 +227,8 @@ c Store the SCp parameters
         enddo
       enddo
 c Store disulfide-bond parameters
+      ht_all(iparm)=ht
+      ss_depth_all(iparm)=ss_depth
       ebr_all(iparm)=ebr
       d0cm_all(iparm)=d0cm
       akcm_all(iparm)=akcm
@@ -481,6 +483,8 @@ c Restore the SCp parameters
         enddo
       enddo
 c Restore disulfide-bond parameters
+      ht=ht_all(iparm)
+      ss_depth=ss_depth_all(iparm) 
       ebr=ebr_all(iparm)
       d0cm=d0cm_all(iparm)
       akcm=akcm_all(iparm)