c
c zebra common
c
      integer ibcsl
      parameter (ibcsl = 1600000)
c
      integer ifence(2)
      integer lev
      real blvect(1600001)
      common /zzz/ ifence,lev,blvect
c
      integer iquest(100)
      common /quest/ iquest
c
      integer iq(ibcsl)
      integer lq(ibcsl)
      integer*2 iq2(2*ibcsl)
      real q(ibcsl)
      equivalence (iq(1),q(1),lq(9)),(lq(1),lev),(iq(1),iq2(1))
c
      integer ipointz
      common /inamen/ ipointz
c
      integer ixstor
      common /comsto/ ixstor
c
c set maximum number of banks to search per event
c
      integer maxbanks
      parameter (maxbanks = 200)
c
c common for FZ statistics
c ***** needed?
c
      integer influn
      integer infsta
      integer infofz(40)
      common /fzstat/ influn,infsta,infofz