ISAJET/isajet/getjet.inc

   1 #ifndef CERNLIB_ISAJET_GETJET_INC
   2 #define CERNLIB_ISAJET_GETJET_INC
   3 *
   4 *
   5 * getjet.inc
   6 *
   7       INTEGER   NJMAX
   8       PARAMETER (NJMAX=50)
   9       COMMON/GETCOM/JETNO(NCY,NCPHI),NCJET,PCJET(4,NJMAX),ETJET(NJMAX)
  10       SAVE /GETCOM/
  11 #if defined(CERNLIB_LEVEL2)
  12 #include "isajet/l2getj.inc"
  13 * Ignoring t=pass
  14 #endif
  15       INTEGER   JETNO,NCJET
  16       REAL      PCJET,ETJET
  17
  18 #endif