c
c ntuple common
c
c sssntrun  --  run header ntuple
c sssntevt  --  event ntuple
c sssntsc   --  slow controls ntuple
c
      integer hec_runno,hec_runpd,hec_numevt,hec_parttype
      integer hec_peakf,hec_cal_version,hec_dig_version
      integer hec_eunit,hec_shower,hec_cells_used
      integer hec_ieta(i_adc_dim),hec_iphi(i_adc_dim),hec_iz(i_adc_dim)
      integer hec_ic(i_adc_dim),hec_index(i_adc_dim),hec_adc_max
      real hec_beame,hec_cryox,hec_tabley,hec_zbeam
      real hec_ped_rms(i_adc_dim)
c
      integer hec_evtno,hec_trig(5)
      real hec_signal(i_adc_dim)
c
      integer hec_xbeam_ok,hec_ybeam_ok
      real hec_xbeam,hec_ybeam,hec_xslop,hec_yslop
c
      real hec_lartemp(8),hec_press
      integer hec_time,hec_hvstat(i_adc_dim)
      real hec_hvcor(i_adc_dim)
      integer hec_adc_used       
c
      common /sssntrun/ hec_runno,hec_runpd,hec_beame,hec_numevt,
     +                  hec_parttype,
     +                  hec_cryox,hec_tabley,hec_zbeam,
     +                  hec_peakf,hec_cal_version,hec_dig_version,
     +                  hec_shower,hec_eunit,hec_adc_max,hec_index,
     +                  hec_cells_used,
     +                  hec_ped_rms,hec_ieta,hec_iphi,hec_iz,
     +                  hec_ic
c
      common /sssntevt/ hec_evtno,hec_trig,
     +                  hec_signal,
     +                  hec_xbeam,hec_ybeam,hec_xslop,hec_yslop,
     +                  hec_xbeam_ok,hec_ybeam_ok
c
      common /sssntsc/ hec_time,hec_lartemp,hec_press,
     +                 hec_adc_used,hec_hvcor