/usr/include/isajet758/zebcom.inc is in libisajet758-3-dev 20061220+dfsg3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #ifndef CERNLIB_ISAJET_ZEBCOM_INC
#define CERNLIB_ISAJET_ZEBCOM_INC
*
*
* zebcom.inc
*
C
C ZEBCOM is the main zebra common block for event data storage
C
INTEGER NNQ,NREF
PARAMETER (NNQ=200000)
PARAMETER (NREF=9)
COMMON/ZEBCOM/IXCOM,IXMAIN,IXDVR,FENCE,LISAE,LISAB,LREF,
$ ZSTOR,ENDZS
SAVE /ZEBCOM/
INTEGER IXCOM ! store number
$ ,IXMAIN ! event division number
$ ,IXDVR ! run division number
INTEGER FENCE(8),LREF(NREF),ZSTOR(NNQ),ENDZS
INTEGER LISAE ! pointer to ISAE bank
INTEGER LISAB ! pointer to ISAB bank
REAL Q(NNQ)
INTEGER IQ(NNQ),LQ(NNQ)
EQUIVALENCE (LISAE,LQ(1)),(LQ(9),IQ(1),Q(1))
C
#endif
|