1 double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
2 & short_r_sidechain,fac_shield,grad_shield_side,grad_shield,
4 integer ishield_list,shield_list
5 common /shield/ VSolvSphere,VSolvSphere_div,buff_shield,
6 & long_r_sidechain(ntyp),
7 & short_r_sidechain(ntyp),fac_shield(maxres),
8 & grad_shield_side(3,15,-1:maxres),grad_shield(3,-1:maxres),
9 & grad_shield_loc(3,15,-1:maxres),
10 & ishield_list(maxres),shield_list(15,maxres)