ISAJET/isajet/pjets.inc

   1 #ifndef CERNLIB_ISAJET_PJETS_INC
   2 #define CERNLIB_ISAJET_PJETS_INC
   3 *
   4 *
   5 * pjets.inc
   6 *
   7       INTEGER MXJETS
   8       PARAMETER (MXJETS=10)
   9       COMMON/PJETS/PJETS(5,MXJETS),IDJETS(MXJETS),QWJET(5),IDENTW
  10      $,PPAIR(5,4),IDPAIR(4),JPAIR(4),NPAIR,IFRAME(MXJETS)
  11       SAVE /PJETS/
  12       INTEGER   IDJETS,IDENTW,IDPAIR,JPAIR,NPAIR,IFRAME
  13       REAL      PJETS,QWJET,PPAIR
  14
  15 #endif