double precision VSolvSphere,VSolvSphere_div,long_r_sidechain,
     & short_r_sidechain,fac_shield            
       integer  ishield_list,shield_list
       common /shield/ VSolvSphere,VSolvSphere_div,
     & long_r_sidechain(ntyp),
     & short_r_sidechain(ntyp),fac_shield(maxres),
     & ishield_list(maxres),shield_list(maxres)