Warning, /include/isajet/lkpjet.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_LKPJET_INC
0002 #define CERNLIB_ISAJET_LKPJET_INC
0003 *
0004 *
0005 * lkpjet.inc
0006 *
0007 C----------------------------------------------------------------------
0008 C-
0009 C- Name LKPJET.INC
0010 C- Purpose Temporary link area for PJET banks
0011 C- Created 5-DEC-1989 CHIP STEWART (HBP)
0012 C- Updated 13-JAN-1990 Harrison B. Prosper
0013 C- Updated 6-NOV-1990 Chip Stewart - ADDED ISP1,ISV1
0014 C-
0015 C----------------------------------------------------------------------
0016 C
0017 C **** JPJET(1) User flag
0018 C **** JPJET(2) System word
0019 C **** JPJET(3) First link in area (= KPJET(1))
0020 C
0021 INTEGER PJLON
0022 PARAMETER( PJLON = 1 ) ! Activate link area
0023 C
0024 INTEGER PJLOFF
0025 PARAMETER( PJLOFF= 0 ) ! De-activate link area
0026 C
0027 INTEGER MXPJET
0028 PARAMETER( MXPJET = 8 )
0029 INTEGER LPJHD,LPJET,LPJPT,LISAQ,LISAJ,LISP1,LISV1
0030 INTEGER JPJET,KPJET(MXPJET)
0031 EQUIVALENCE ( LPJHD, KPJET(1) )
0032 EQUIVALENCE ( LPJET, KPJET(2) )
0033 EQUIVALENCE ( LPJPT, KPJET(3) )
0034 EQUIVALENCE ( LISAQ, KPJET(5) )
0035 EQUIVALENCE ( LISAJ, KPJET(6) )
0036 EQUIVALENCE ( LISP1, KPJET(7) )
0037 EQUIVALENCE ( LISV1, KPJET(8) )
0038 COMMON /LKPJET/ JPJET(2),KPJET
0039 SAVE /LKPJET/
0040
0041 #endif
