ISAJET/isajet/types.inc

   1 #ifndef CERNLIB_ISAJET_TYPES_INC
   2 #define CERNLIB_ISAJET_TYPES_INC
   3 *
   4 *
   5 * types.inc
   6 *
   7       INTEGER MXTYPE
   8       PARAMETER (MXTYPE=8)
   9       COMMON/TYPES/LOC(100),NTYP,NJTTYP(MXTYPE),NWWTYP(2),NWMODE(3)
  10       COMMON/XTYPES/PARTYP(40),TITLE(10),JETYP(30,MXTYPE),WWTYP(30,2)
  11      $,WMODES(30,3)
  12       SAVE /TYPES/,/XTYPES/
  13       CHARACTER*8 JETYP,WWTYP,TITLE,PARTYP,WMODES
  14       INTEGER   LOC,NTYP,NJTTYP,NWWTYP,NWMODE
  15
  16 #endif