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

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)