c
c pedestal computation common
c *** WARNING ***
c must be preceded by the include file hec_par.inc
c
c i_ped_evt1         number of events used in pass 1
c i_ped_evt2         number of events used in pass 2
c i_adc0_1(ic)       number of peds used pass 1
c i_adc0_2(ic)       number of peds used pass 2
c ped_rej(ic)        fraction of peds rejected by sigma cut
c r_adc1(ic)         adc sums
c r_adc2(ic)         adc**2 sums
c
      integer i_ped_evt1
      integer i_ped_evt2
      integer i_adc0_1(1:i_adc_dim)
      integer i_adc0_2(1:i_adc_dim)
      real ped_rej(1:i_adc_dim)
      double precision r_adc1(1:i_adc_dim)
      double precision r_adc2(1:i_adc_dim)
c
      common /ssspds/ i_ped_evt1, i_ped_evt2, 
     +                i_adc0_1, i_adc0_2, ped_rej, r_adc1, r_adc2
c