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
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)