Warning, /include/isajet/zevel.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_ZEVEL_INC
0002 #define CERNLIB_ISAJET_ZEVEL_INC
0003 *
0004 *
0005 * zevel.inc
0006 *
0007 INTEGER MAXLEN
0008 PARAMETER (MAXLEN=1024)
0009 COMMON/ZEVEL/IZEVEL(MAXLEN)
0010 SAVE /ZEVEL/
0011 EQUIVALENCE(ZEVEL(1),IZEVEL(1))
0012 EQUIVALENCE(LZEVEL(1),IZEVEL(1))
0013 EQUIVALENCE (IZVL1,IZEVEL(1))
0014 EQUIVALENCE (IZVL2,IZEVEL(2))
0015 #if defined(CERNLIB_LEVEL2)
0016 #include "isajet/l2zevl.inc"
0017 * Ignoring t=pass
0018 #endif
0019 INTEGER IZEVEL,IZVL1,IZVL2
0020 REAL ZEVEL(MAXLEN)
0021 LOGICAL LZEVEL(MAXLEN)
0022
0023 #endif
