/usr/include/isajet758/calor.inc is in libisajet758-3-dev 20061220+dfsg3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #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
|