ISAJET/isajet/zebcom.inc

   1 #ifndef CERNLIB_ISAJET_ZEBCOM_INC
   2 #define CERNLIB_ISAJET_ZEBCOM_INC
   3 *
   4 *
   5 * zebcom.inc
   6 *
   7 C
   8 C  ZEBCOM is the main zebra common block for event data storage
   9 C
  10       INTEGER NNQ,NREF
  11       PARAMETER (NNQ=200000)
  12       PARAMETER (NREF=9)
  13       COMMON/ZEBCOM/IXCOM,IXMAIN,IXDVR,FENCE,LISAE,LISAB,LREF,
  14      $  ZSTOR,ENDZS
  15       SAVE /ZEBCOM/
  16       INTEGER IXCOM    ! store number
  17      $       ,IXMAIN   ! event division number
  18      $       ,IXDVR    ! run division number
  19       INTEGER FENCE(8),LREF(NREF),ZSTOR(NNQ),ENDZS
  20       INTEGER LISAE     ! pointer to ISAE bank
  21       INTEGER LISAB    ! pointer to ISAB bank
  22       REAL Q(NNQ)
  23       INTEGER IQ(NNQ),LQ(NNQ)
  24       EQUIVALENCE (LISAE,LQ(1)),(LQ(9),IQ(1),Q(1))
  25 C
  26
  27 #endif