1 double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
2 & short_r_sidechain,fac_shield
3 integer ishield_list,shield_list
4 common /shield/ VSolvSphere,VSolvSphere_div,
5 & long_r_sidechain(ntyp),
6 & short_r_sidechain(ntyp),fac_shield(maxres),
7 & ishield_list(maxres),shield_list(maxres)