#ifndef CERNLIB_ISAJET_TYPES_INC #define CERNLIB_ISAJET_TYPES_INC * * * types.inc * INTEGER MXTYPE PARAMETER (MXTYPE=8) COMMON/TYPES/LOC(100),NTYP,NJTTYP(MXTYPE),NWWTYP(2),NWMODE(3) COMMON/XTYPES/PARTYP(40),TITLE(10),JETYP(30,MXTYPE),WWTYP(30,2) $,WMODES(30,3) SAVE /TYPES/,/XTYPES/ CHARACTER*8 JETYP,WWTYP,TITLE,PARTYP,WMODES INTEGER LOC,NTYP,NJTTYP,NWWTYP,NWMODE #endif