Warning, /include/isajet/calor.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_CALOR_INC
0002 #define CERNLIB_ISAJET_CALOR_INC
0003 *
0004 *
0005 * calor.inc
0006 *
0007 REAL DELY,YCMIN,YCMAX
0008 INTEGER NCY
0009 PARAMETER (NCY=80,DELY=.1,YCMIN=-4.,YCMAX=4.)
0010 REAL DELPHI
0011 INTEGER NCPHI
0012 PARAMETER (NCPHI=72,DELPHI=.087267)
0013 COMMON/CALOR/ET(NCY,NCPHI),ETEM(NCY,NCPHI),
0014 $CTHCAL(NCY),STHCAL(NCY),CPHCAL(NCPHI),SPHCAL(NCPHI)
0015 SAVE /CALOR/
0016 #if defined(CERNLIB_LEVEL2)
0017 #include "isajet/l2cal.inc"
0018 * Ignoring t=pass
0019 #endif
0020 REAL ET,ETEM,CTHCAL,STHCAL,CPHCAL,SPHCAL
0021
0022 #endif
