]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_LKPJET_INC |
2 | #define CERNLIB_ISAJET_LKPJET_INC | |
3 | * | |
4 | * | |
5 | * lkpjet.inc | |
6 | * | |
7 | C---------------------------------------------------------------------- | |
8 | C- | |
9 | C- Name LKPJET.INC | |
10 | C- Purpose Temporary link area for PJET banks | |
11 | C- Created 5-DEC-1989 CHIP STEWART (HBP) | |
12 | C- Updated 13-JAN-1990 Harrison B. Prosper | |
13 | C- Updated 6-NOV-1990 Chip Stewart - ADDED ISP1,ISV1 | |
14 | C- | |
15 | C---------------------------------------------------------------------- | |
16 | C | |
17 | C **** JPJET(1) User flag | |
18 | C **** JPJET(2) System word | |
19 | C **** JPJET(3) First link in area (= KPJET(1)) | |
20 | C | |
21 | INTEGER PJLON | |
22 | PARAMETER( PJLON = 1 ) ! Activate link area | |
23 | C | |
24 | INTEGER PJLOFF | |
25 | PARAMETER( PJLOFF= 0 ) ! De-activate link area | |
26 | C | |
27 | INTEGER MXPJET | |
28 | PARAMETER( MXPJET = 8 ) | |
29 | INTEGER LPJHD,LPJET,LPJPT,LISAQ,LISAJ,LISP1,LISV1 | |
30 | INTEGER JPJET,KPJET(MXPJET) | |
31 | EQUIVALENCE ( LPJHD, KPJET(1) ) | |
32 | EQUIVALENCE ( LPJET, KPJET(2) ) | |
33 | EQUIVALENCE ( LPJPT, KPJET(3) ) | |
34 | EQUIVALENCE ( LISAQ, KPJET(5) ) | |
35 | EQUIVALENCE ( LISAJ, KPJET(6) ) | |
36 | EQUIVALENCE ( LISP1, KPJET(7) ) | |
37 | EQUIVALENCE ( LISV1, KPJET(8) ) | |
38 | COMMON /LKPJET/ JPJET(2),KPJET | |
39 | SAVE /LKPJET/ | |
40 | ||
41 | #endif |