[u/mrichter/AliRoot.git] / ISAJET / isajet / calor.inc

#ifndef CERNLIB_ISAJET_CALOR_INC
#define CERNLIB_ISAJET_CALOR_INC
*
*
* calor.inc
*
      REAL      DELY,YCMIN,YCMAX
      INTEGER   NCY
      PARAMETER (NCY=80,DELY=.1,YCMIN=-4.,YCMAX=4.)
      REAL      DELPHI
      INTEGER   NCPHI
      PARAMETER (NCPHI=72,DELPHI=.087267)
      COMMON/CALOR/ET(NCY,NCPHI),ETEM(NCY,NCPHI),
     $CTHCAL(NCY),STHCAL(NCY),CPHCAL(NCPHI),SPHCAL(NCPHI)
      SAVE /CALOR/
#if defined(CERNLIB_LEVEL2)
#include "isajet/l2cal.inc"
* Ignoring t=pass
#endif
      REAL      ET,ETEM,CTHCAL,STHCAL,CPHCAL,SPHCAL

#endif
Commit	Line	Data
0795afa3	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