double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
& short_r_sidechain,fac_shield,grad_shield_side,grad_shield,
- & buff_shield,wshield
+ & buff_shield,wshield,lipscale,sslipi,sslipj,
+ & ssgradlipi,ssgradlipj
integer ishield_list,shield_list,ees0plist
common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
- & long_r_sidechain(ntyp),
+ & long_r_sidechain(ntyp),sslipi,sslipj,
+ & ssgradlipi,ssgradlipj,
& short_r_sidechain(ntyp),fac_shield(maxres),wshield,
& grad_shield_side(3,maxcontsshi,-1:maxres),
& grad_shield(3,-1:maxres),
- & grad_shield_loc(3,maxcontsshi,-1:maxres),
+ & grad_shield_loc(3,maxcontsshi,-1:maxres),lipscale,
& ishield_list(maxres),shield_list(maxcontsshi,maxres),
& ees0plist(maxconts,maxres)