Warning, /include/cojets/partcl.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id: partcl.inc,v 1.1.1.1 1996/01/11 14:14:55 mclareni Exp $
0003 *
0004 * $Log: partcl.inc,v $
0005 * Revision 1.1.1.1 1996/01/11 14:14:55 mclareni
0006 * Cojets
0007 *
0008 *
0009 #ifndef CERNLIB_COJETS_PARTCL_INC
0010 #define CERNLIB_COJETS_PARTCL_INC
0011 *
0012 *
0013 * partcl.inc
0014 *
0015 PARAMETER (MXPTCL=2000,IPACK=10000)
0016 COMMON/PARTCL/NPTCL,PPTCL(5,MXPTCL),IORIG(MXPTCL),IDENT(MXPTCL)
0017 1,IDCAY(MXPTCL)
0018 REAL PPTCL
0019
0020 #endif
