source/cluster/wham/src-M/COMMON.SHIELD

   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),
   8      & short_r_sidechain(ntyp),fac_shield(maxres),wshield,
   9      & sslipi,sslipj,lipscale,
  10      & ssgradlipi,ssgradlipj,
  11      & grad_shield_side(3,maxcont,-1:maxres),grad_shield(3,-1:maxres),
  12      &  grad_shield_loc(3,maxcont,-1:maxres),
  13      & ishield_list(maxres),shield_list(maxcont,maxres),
  14      & ees0plist(maxcont,maxres)
  15
  16
  17