Warning, /include/isajet/zebcom.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_ZEBCOM_INC
0002 #define CERNLIB_ISAJET_ZEBCOM_INC
0003 *
0004 *
0005 * zebcom.inc
0006 *
0007 C
0008 C ZEBCOM is the main zebra common block for event data storage
0009 C
0010 INTEGER NNQ,NREF
0011 PARAMETER (NNQ=200000)
0012 PARAMETER (NREF=9)
0013 COMMON/ZEBCOM/IXCOM,IXMAIN,IXDVR,FENCE,LISAE,LISAB,LREF,
0014 $ ZSTOR,ENDZS
0015 SAVE /ZEBCOM/
0016 INTEGER IXCOM ! store number
0017 $ ,IXMAIN ! event division number
0018 $ ,IXDVR ! run division number
0019 INTEGER FENCE(8),LREF(NREF),ZSTOR(NNQ),ENDZS
0020 INTEGER LISAE ! pointer to ISAE bank
0021 INTEGER LISAB ! pointer to ISAB bank
0022 REAL Q(NNQ)
0023 INTEGER IQ(NNQ),LQ(NNQ)
0024 EQUIVALENCE (LISAE,LQ(1)),(LQ(9),IQ(1),Q(1))
0025 C
0026
0027 #endif
