[u/mrichter/AliRoot.git] / ISAJET / isajet / partcl.inc

#ifndef CERNLIB_ISAJET_PARTCL_INC
#define CERNLIB_ISAJET_PARTCL_INC
*
*
* partcl.inc
*
      INTEGER   MXPTCL,IPACK
      PARAMETER (MXPTCL=4000,IPACK=10000)
      COMMON/PARTCL/NPTCL,PPTCL(5,MXPTCL),IORIG(MXPTCL),IDENT(MXPTCL)
     1,IDCAY(MXPTCL)
      SAVE /PARTCL/
#if defined(CERNLIB_LEVEL2)
#include "isajet/l2part.inc"
* Ignoring t=pass
#endif
      INTEGER   NPTCL,IORIG,IDENT,IDCAY
      REAL      PPTCL

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_PARTCL_INC
	2	#define CERNLIB_ISAJET_PARTCL_INC
	3	*
	4	*
	5	* partcl.inc
	6	*
	7	INTEGER MXPTCL,IPACK
	8	PARAMETER (MXPTCL=4000,IPACK=10000)
	9	COMMON/PARTCL/NPTCL,PPTCL(5,MXPTCL),IORIG(MXPTCL),IDENT(MXPTCL)
	10	1,IDCAY(MXPTCL)
	11	SAVE /PARTCL/
	12	#if defined(CERNLIB_LEVEL2)
	13	#include "isajet/l2part.inc"
	14	* Ignoring t=pass
	15	#endif
	16	INTEGER NPTCL,IORIG,IDENT,IDCAY
	17	REAL PPTCL
	18
	19	#endif