Warning, /include/cojets/evint.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id: evint.inc,v 1.1.1.1 1996/01/11 14:14:47 mclareni Exp $
0003 *
0004 * $Log: evint.inc,v $
0005 * Revision 1.1.1.1 1996/01/11 14:14:47 mclareni
0006 * Cojets
0007 *
0008 *
0009 #ifndef CERNLIB_COJETS_EVINT_INC
0010 #define CERNLIB_COJETS_EVINT_INC
0011 *
0012 *
0013 * evint.inc
0014 *
0015 PARAMETER (MAXMP=11)
0016 COMMON/EVINT/LEVTYP,NMULP
0017 1,XINGV(2,MAXMP),PXINGV(2,MAXMP),PYINGV(2,MAXMP),IFINGV(2,MAXMP)
0018 2,XACTV(2,MAXMP),PXACTV(2,MAXMP),PYACTV(2,MAXMP),IFACTV(2,MAXMP)
0019 3,LEV(MAXMP),LINV(MAXMP),LFINV(MAXMP),SHV(MAXMP),QSQV(MAXMP)
0020 4,THV(MAXMP),COSCMV(MAXMP),PHIV(MAXMP),PCMV(MAXMP),AMV(2,MAXMP)
0021 5,IFLFV(2,MAXMP),P4LABV(4,MAXMP),PFLABV(4,2,MAXMP)
0022 REAL XINGV,PXINGV,PYINGV,XACTV,PXACTV,PYACTV,SHV,QSQV,THV
0023 1,COSCMV,PHIV,PCMV,AMV,P4LABV,PFLABV
0024
0025 #endif
