]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_LISTSS_INC |
2 | #define CERNLIB_ISAJET_LISTSS_INC | |
3 | * | |
4 | * | |
5 | * listss.inc | |
6 | * | |
7 | C LISTSS IDENT and JETTYPE codes | |
8 | C ISGL ISUPL -ISUPL ISDNL -ISDNL ISSTL -ISSTL ISCHL -ISCHL | |
9 | C 1 2 3 4 5 6 7 8 9 | |
10 | C ISBT1 -ISBT1 ISTP1 -ISTP1 ISUPR -ISUPR ISDNR -ISDNR ISSTR | |
11 | C 10 11 12 13 14 15 16 17 18 | |
12 | C -ISSTR ISCHR -ISCHR ISBT2 -ISBT2 ISTP2 -ISTP2 ISW1 -ISW1 | |
13 | C 19 20 21 22 23 24 25 26 27 | |
14 | C ISW2 -ISW2 ISZ1 ISZ2 ISZ3 ISZ4 ISNEL -ISNEL ISEL | |
15 | C 28 29 30 31 32 33 34 35 36 | |
16 | C -ISEL ISNML -ISNML ISMUL -ISMUL ISNTL -ISNTL ISTAU1-ISTAU1 | |
17 | C 37 38 39 40 41 42 43 44 45 | |
18 | C ISER -ISER ISMUR -ISMUR ISTAU2-ISTAU2 9 1 -1 | |
19 | C 46 47 48 49 50 51 52 53 54 | |
20 | C 2 -2 3 -3 4 -4 5 -5 6 | |
21 | C 55 56 57 58 59 60 61 62 63 | |
22 | C -6 11 -11 12 -12 13 -13 14 -14 | |
23 | C 64 65 66 67 68 69 70 71 72 | |
24 | C 15 -15 16 -16 10 80 -80 90 ISHL | |
25 | C 73 74 75 76 77 78 79 80 81 | |
26 | C ISHH ISHA ISHC -ISHC | |
27 | C 82 83 84 85 | |
28 | COMMON/LISTSS/LISTSS(85) | |
29 | INTEGER LISTSS | |
30 | SAVE /LISTSS/ | |
31 | ||
32 | #endif |