ISAJET/isajet/calor.inc

   1 #ifndef CERNLIB_ISAJET_CALOR_INC
   2 #define CERNLIB_ISAJET_CALOR_INC
   3 *
   4 *
   5 * calor.inc
   6 *
   7       REAL      DELY,YCMIN,YCMAX
   8       INTEGER   NCY
   9       PARAMETER (NCY=80,DELY=.1,YCMIN=-4.,YCMAX=4.)
  10       REAL      DELPHI
  11       INTEGER   NCPHI
  12       PARAMETER (NCPHI=72,DELPHI=.087267)
  13       COMMON/CALOR/ET(NCY,NCPHI),ETEM(NCY,NCPHI),
  14      $CTHCAL(NCY),STHCAL(NCY),CPHCAL(NCPHI),SPHCAL(NCPHI)
  15       SAVE /CALOR/
  16 #if defined(CERNLIB_LEVEL2)
  17 #include "isajet/l2cal.inc"
  18 * Ignoring t=pass
  19 #endif
  20       REAL      ET,ETEM,CTHCAL,STHCAL,CPHCAL,SPHCAL
  21
  22 #endif