Warning, /include/cojets/event.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id: event.inc,v 1.1.1.1 1996/01/11 14:14:47 mclareni Exp $
0003 *
0004 * $Log: event.inc,v $
0005 * Revision 1.1.1.1 1996/01/11 14:14:47 mclareni
0006 * Cojets
0007 *
0008 *
0009 #ifndef CERNLIB_COJETS_EVENT_INC
0010 #define CERNLIB_COJETS_EVENT_INC
0011 *
0012 *
0013 * event.inc
0014 *
0015 PARAMETER (MXPART=2000,IPACK=10000)
0016 COMMON/EVENT/NEVENT,ECM,PARHAD(MXPART,7),NPART,WEIGHT
0017 1,IORIG(MXPART),IDENT(MXPART),IDCAY(MXPART)
0018 REAL ECM,PARHAD,WEIGHT
0019 EQUIVALENCE (NPART,NPTCL)
0020 COMMON/NOUNST/NOUNST
0021 LOGICAL NOUNST
0022
0023 #endif
