c common block BPREDAT   
c 
c define BPRE variables in common block:
c BPmax - number of channels with signals for current event 
c BPchn(450) - channel  number (from 1-432)
c BPmod(450) - corresponding BPRE modul (1-32), as for BCAL
c BPtil(450) - tile number (1-13) (#1 near FCAL) 
c BPpcc(450) - corresponding energy in pC
c BPmip(450) - corresponding energy in Mip
c BPtim(450) - corresponding time
c BPx(450),BPy(450),BPz(450) - X,Y,Z position
c BPqmin - minimum charge per tile (default 1.0 pC)
c BPqmax - maximum charge per tile (default 125.0 pC)
c BPtmin - minimum timing per tile (default 0.0 ns)
c BPtmax - maximum timing per tile (default 15.0 ns)

      Integer  BPmax, BPset
      Parameter(BPset=450)
      Real BPtim(BPset),BPx(BPset), BPy(BPset),BPz(BPset)
      Real BPpcc(BPset), BPmip(BPset)
      Integer BPchn(BPset),BPmod(BPset),BPtil(BPset)
      Real BPqmin,BPqmax,BPtmin,BPtmax

      COMMON/BPREDAT/BPmax,BPtim,BPx,BPy,BPz,BPpcc,BPmip,BPchn, 
     +               BPmod,BPtil,BPqmin,BPqmax,BPtmin,BPtmax