X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fstore_parm.F;fp=source%2Fwham%2Fsrc%2Fstore_parm.F;h=ce0047fd063e736202e6aaec7bf007c28da8680b;hp=6aa33c5fb7cf1b326ba7a48a5acd6c5dd0f577ed;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/wham/src/store_parm.F b/source/wham/src/store_parm.F
index 6aa33c5..ce0047f 100644
--- a/source/wham/src/store_parm.F
+++ b/source/wham/src/store_parm.F
@@ -217,6 +217,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
@@ -460,6 +462,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)