]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_JETLIM_INC |
2 | #define CERNLIB_ISAJET_JETLIM_INC | |
3 | * | |
4 | * | |
5 | * jetlim.inc | |
6 | * | |
7 | C Jet limits | |
8 | INTEGER MXLIM | |
9 | PARAMETER (MXLIM=8) | |
10 | INTEGER MXLX12 | |
11 | PARAMETER (MXLX12=12*MXLIM) | |
12 | COMMON/JETLIM/PMIN(MXLIM),PMAX(MXLIM),PTMIN(MXLIM),PTMAX(MXLIM), | |
13 | $YJMIN(MXLIM),YJMAX(MXLIM),PHIMIN(MXLIM),PHIMAX(MXLIM), | |
14 | $XJMIN(MXLIM),XJMAX(MXLIM),THMIN(MXLIM),THMAX(MXLIM), | |
15 | $SETLMJ(12*MXLIM) | |
16 | SAVE /JETLIM/ | |
17 | COMMON/FIXPAR/FIXP(MXLIM),FIXPT(MXLIM),FIXYJ(MXLIM), | |
18 | $FIXPHI(MXLIM),FIXXJ(MXLIM),FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW | |
19 | SAVE /FIXPAR/ | |
20 | COMMON/SGNPAR/CTHS(2,MXLIM),THS(2,MXLIM),YJS(2,MXLIM),XJS(2,MXLIM) | |
21 | SAVE /SGNPAR/ | |
22 | REAL PMIN,PMAX,PTMIN,PTMAX,YJMIN,YJMAX,PHIMIN,PHIMAX,XJMIN, | |
23 | + XJMAX,THMIN,THMAX,BLIMS(12*MXLIM),CTHS,THS,YJS,XJS | |
24 | LOGICAL SETLMJ | |
25 | LOGICAL FIXQM,FIXQT,FIXYW,FIXXW,FIXPHW | |
26 | LOGICAL FIXP,FIXPT,FIXYJ,FIXPHI,FIXXJ | |
27 | EQUIVALENCE(BLIMS(1),PMIN(1)) | |
28 | ||
29 | #endif |