[u/mrichter/AliRoot.git] / ISAJET / isajet / jetlim.inc

#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
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