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