c
c epio common
c
      integer id_runh, id_evth, id_dwpc, id_adc_96, id_adc_97 
      integer id_tdc, id_fadc, id_scaler
      integer id_slow_header, id_slow_pc, id_slow_sps, id_slow_beam
      parameter (id_runh = 9)
      parameter (id_evth = 1)
      parameter (id_dwpc = 33)
      parameter (id_adc_96 = 35)
      parameter (id_adc_97 = 36)
      parameter (id_fadc = 37)
      parameter (id_scaler = 38)
      parameter (id_tdc = 39)
      parameter (id_slow_header = 70)
      parameter (id_slow_pc = 71)
      parameter (id_slow_sps = 73)
      parameter (id_slow_beam = 74)
c
      integer*2 ibankbuf(40000)
      integer ipointep, lrecbuf, lepbuf
      common /sssepbuf/ ibankbuf, ipointep, lrecbuf, lepbuf