1 #ifndef CERNLIB_ISAJET_ZEVEL_INC
2 #define CERNLIB_ISAJET_ZEVEL_INC
8 PARAMETER (MAXLEN=1024)
9 COMMON/ZEVEL/IZEVEL(MAXLEN)
11 EQUIVALENCE(ZEVEL(1),IZEVEL(1))
12 EQUIVALENCE(LZEVEL(1),IZEVEL(1))
13 EQUIVALENCE (IZVL1,IZEVEL(1))
14 EQUIVALENCE (IZVL2,IZEVEL(2))
15 #if defined(CERNLIB_LEVEL2)
16 #include "isajet/l2zevl.inc"
19 INTEGER IZEVEL,IZVL1,IZVL2
21 LOGICAL LZEVEL(MAXLEN)