c
c IMPACT PARAMETER ARRAYS                
c 
c impact_point_name(i)   name of impact point i
c impact_point_x(i)      x-val for  "
c impact_point_y(i)      y-val fpr  "
c impact_point_index     index in the above arrays corresponding
c                        to the actual impact parameter when appropriate,
c                        zero otherwise
c
      integer impmax
      parameter(impmax=20)
      character*1 impact_point_name(impmax)
      integer impact_point_x(impmax)
      integer impact_point_y(impmax)
      integer impact_point_index      

c
      common /sssimp/  impact_point_name,
     +                 impact_point_x,
     +                 impact_point_y,
     +                 impact_point_index
c