ISAJET/isajet/jetset.inc

   1 #ifndef CERNLIB_ISAJET_JETSET_INC
   2 #define CERNLIB_ISAJET_JETSET_INC
   3 *
   4 *
   5 * jetset.inc
   6 *
   7       INTEGER   MXJSET,JPACK
   8       PARAMETER (MXJSET=400,JPACK=1000)
   9       COMMON/JETSET/NJSET,PJSET(5,MXJSET),JORIG(MXJSET),JTYPE(MXJSET),
  10      $JDCAY(MXJSET)
  11       SAVE /JETSET/
  12 #if defined(CERNLIB_LEVEL2)
  13 #include "isajet/l2jset.inc"
  14 * Ignoring t=pass
  15 #endif
  16       INTEGER   NJSET,JORIG,JTYPE,JDCAY
  17       REAL      PJSET
  18
  19 #endif