Warning, /include/isajet/jetlim.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_JETLIM_INC
0002 #define CERNLIB_ISAJET_JETLIM_INC
0003 *
0004 *
0005 * jetlim.inc
0006 *
0007 C Jet limits
0008 INTEGER MXLIM
0009 PARAMETER (MXLIM=8)
0010 INTEGER MXLX12
0011 PARAMETER (MXLX12=12*MXLIM)
0012 COMMON/JETLIM/PMIN(MXLIM),PMAX(MXLIM),PTMIN(MXLIM),PTMAX(MXLIM),
0013 $YJMIN(MXLIM),YJMAX(MXLIM),PHIMIN(MXLIM),PHIMAX(MXLIM),
0014 $XJMIN(MXLIM),XJMAX(MXLIM),THMIN(MXLIM),THMAX(MXLIM),
0015 $SETLMJ(12*MXLIM)
0016 SAVE /JETLIM/
0017 COMMON/FIXPAR/FIXP(MXLIM),FIXPT(MXLIM),FIXYJ(MXLIM),
0018 $FIXPHI(MXLIM),FIXXJ(MXLIM),FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
0019 SAVE /FIXPAR/
0020 COMMON/SGNPAR/CTHS(2,MXLIM),THS(2,MXLIM),YJS(2,MXLIM),XJS(2,MXLIM)
0021 SAVE /SGNPAR/
0022 REAL PMIN,PMAX,PTMIN,PTMAX,YJMIN,YJMAX,PHIMIN,PHIMAX,XJMIN,
0023 + XJMAX,THMIN,THMAX,BLIMS(12*MXLIM),CTHS,THS,YJS,XJS
0024 LOGICAL SETLMJ
0025 LOGICAL FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW
0026 LOGICAL FIXP,FIXPT,FIXYJ,FIXPHI,FIXXJ
0027 EQUIVALENCE(BLIMS(1),PMIN(1))
0028
0029 #endif
