/usr/include/isajet758/lkpjet.inc is in libisajet758-3-dev 20061220+dfsg3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | #ifndef CERNLIB_ISAJET_LKPJET_INC
#define CERNLIB_ISAJET_LKPJET_INC
*
*
* lkpjet.inc
*
C----------------------------------------------------------------------
C-
C- Name LKPJET.INC
C- Purpose Temporary link area for PJET banks
C- Created 5-DEC-1989 CHIP STEWART (HBP)
C- Updated 13-JAN-1990 Harrison B. Prosper
C- Updated 6-NOV-1990 Chip Stewart - ADDED ISP1,ISV1
C-
C----------------------------------------------------------------------
C
C **** JPJET(1) User flag
C **** JPJET(2) System word
C **** JPJET(3) First link in area (= KPJET(1))
C
INTEGER PJLON
PARAMETER( PJLON = 1 ) ! Activate link area
C
INTEGER PJLOFF
PARAMETER( PJLOFF= 0 ) ! De-activate link area
C
INTEGER MXPJET
PARAMETER( MXPJET = 8 )
INTEGER LPJHD,LPJET,LPJPT,LISAQ,LISAJ,LISP1,LISV1
INTEGER JPJET,KPJET(MXPJET)
EQUIVALENCE ( LPJHD, KPJET(1) )
EQUIVALENCE ( LPJET, KPJET(2) )
EQUIVALENCE ( LPJPT, KPJET(3) )
EQUIVALENCE ( LISAQ, KPJET(5) )
EQUIVALENCE ( LISAJ, KPJET(6) )
EQUIVALENCE ( LISP1, KPJET(7) )
EQUIVALENCE ( LISV1, KPJET(8) )
COMMON /LKPJET/ JPJET(2),KPJET
SAVE /LKPJET/
#endif
|