ISAJET/isajet/lkpjet.inc

   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