/usr/include/isajet758/jetlim.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 23 24 25 26 27 28 29 | #ifndef CERNLIB_ISAJET_JETLIM_INC
#define CERNLIB_ISAJET_JETLIM_INC
*
*
* jetlim.inc
*
C Jet limits
INTEGER MXLIM
PARAMETER (MXLIM=8)
INTEGER MXLX12
PARAMETER (MXLX12=12*MXLIM)
COMMON/JETLIM/PMIN(MXLIM),PMAX(MXLIM),PTMIN(MXLIM),PTMAX(MXLIM),
$YJMIN(MXLIM),YJMAX(MXLIM),PHIMIN(MXLIM),PHIMAX(MXLIM),
$XJMIN(MXLIM),XJMAX(MXLIM),THMIN(MXLIM),THMAX(MXLIM),
$SETLMJ(12*MXLIM)
SAVE /JETLIM/
COMMON/FIXPAR/FIXP(MXLIM),FIXPT(MXLIM),FIXYJ(MXLIM),
$FIXPHI(MXLIM),FIXXJ(MXLIM),FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
SAVE /FIXPAR/
COMMON/SGNPAR/CTHS(2,MXLIM),THS(2,MXLIM),YJS(2,MXLIM),XJS(2,MXLIM)
SAVE /SGNPAR/
REAL PMIN,PMAX,PTMIN,PTMAX,YJMIN,YJMAX,PHIMIN,PHIMAX,XJMIN,
+ XJMAX,THMIN,THMAX,BLIMS(12*MXLIM),CTHS,THS,YJS,XJS
LOGICAL SETLMJ
LOGICAL FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
LOGICAL FIXP,FIXPT,FIXYJ,FIXPHI,FIXXJ
EQUIVALENCE(BLIMS(1),PMIN(1))
#endif
|