c
c calibrated energies common
c *** WARNING ***
c must be preceded by the include file hec_par.inc
c 
c max adc and time using preferred max finding package
c hec_cal_ic(ic)              the energy (nA) in cell ic
c hec_cal_db(imod,iseg,ipad)  the energy (nA) in module=imod, segment=iseg and pad=ipad
c hec_cal_ph(ieta,iphi,iz)    the energy (nA) in eta=ieta, phi=iphi, z=iz
c ic_has_calib(ic)            .true. if channel ic has good calibration coefficients
c
      real hec_cal_ic(1:i_adc_dim)
      real hec_cal_ph(1:i_eta_max, 1:i_phi_max, 1:i_z_max )
      real hec_cal_db(1:i_mod_max, 1:i_seg_max, 1:i_pad_max)
      logical ic_has_calib(1:i_adc_dim)
c
      real hec_cal_ped_ic(1:i_adc_dim) 
      real hec_cal_rms_ic(1:i_adc_dim) 
c
      common /ssscal/ hec_cal_ic,
     +                hec_cal_db,
     +                hec_cal_ph,
     +                ic_has_calib,
     +                hec_cal_ped_ic,
     +                hec_cal_rms_ic