1 double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
2 & short_r_sidechain,fac_shield,grad_shield_side,grad_shield,
3 & buff_shield,wshield,grad_shield_loc,lipscale,sslipi,sslipj,
4 & ssgradlipi,ssgradlipj
5 integer ishield_list,shield_list,ees0plist
6 common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
7 & long_r_sidechain(ntyp),sslipi,sslipj,
8 & ssgradlipi,ssgradlipj,lipscale,
9 & short_r_sidechain(ntyp),fac_shield(maxres),wshield,
10 & grad_shield_side(3,maxcont,-1:maxres),grad_shield(3,-1:maxres),
11 & grad_shield_loc(3,maxcont,-1:maxres),
12 & ishield_list(maxres),shield_list(maxcont,maxres),
13 & ees0plist(maxcont,maxres)