]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_ZEVEL_INC |
2 | #define CERNLIB_ISAJET_ZEVEL_INC | |
3 | * | |
4 | * | |
5 | * zevel.inc | |
6 | * | |
7 | INTEGER MAXLEN | |
8 | PARAMETER (MAXLEN=1024) | |
9 | COMMON/ZEVEL/IZEVEL(MAXLEN) | |
10 | SAVE /ZEVEL/ | |
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" | |
17 | * Ignoring t=pass | |
18 | #endif | |
19 | INTEGER IZEVEL,IZVL1,IZVL2 | |
20 | REAL ZEVEL(MAXLEN) | |
21 | LOGICAL LZEVEL(MAXLEN) | |
22 | ||
23 | #endif |