]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_JWORK_INC |
2 | #define CERNLIB_ISAJET_JWORK_INC | |
3 | * | |
4 | * | |
5 | * jwork.inc | |
6 | * | |
7 | COMMON/JWORK/ZZC(MXJSET),JMATCH(MXJSET),TNEW,P1CM(4), | |
8 | 1J1,J2,J3,J4,J5,E1CM,E2CM,E3CM,E4CM,E5CM | |
9 | SAVE /JWORK/ | |
10 | LOGICAL TNEW | |
11 | EQUIVALENCE (J1,JJ(1)),(E1CM,EE(1)) | |
12 | INTEGER JMATCH,J1,J2,J3,J4,J5,JJ(5) | |
13 | REAL ZZC,P1CM,E1CM,E2CM,E3CM,E4CM,E5CM,EE(5) | |
14 | ||
15 | #endif |