#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