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

#ifndef CERNLIB_ISAJET_JETPAR_INC
#define CERNLIB_ISAJET_JETPAR_INC
*
*
* jetpar.inc
*
      COMMON/JETPAR/P(3),PT(3),YJ(3),PHI(3),XJ(3),TH(3),CTH(3),STH(3)
     1 ,JETTYP(3),SHAT,THAT,UHAT,QSQ,X1,X2,PBEAM(2)
     2 ,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,JWTYP
     3 ,ALFQSQ,CTHW,STHW,Q0W
     4 ,INITYP(2),ISIGS,PBEAMS(5)
      SAVE /JETPAR/
      INTEGER   JETTYP,JWTYP,INITYP,ISIGS
      REAL      P,PT,YJ,PHI,XJ,TH,CTH,STH,SHAT,THAT,UHAT,QSQ,X1,X2,
     +          PBEAM,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,
     +          ALFQSQ,CTHW,STHW,Q0W,PBEAMS

#endif
Commit	Line	Data
0795afa3	1	#ifndef CERNLIB_ISAJET_JETPAR_INC
	2	#define CERNLIB_ISAJET_JETPAR_INC
	3	*
	4	*
	5	* jetpar.inc
	6	*
	7	COMMON/JETPAR/P(3),PT(3),YJ(3),PHI(3),XJ(3),TH(3),CTH(3),STH(3)
	8	1 ,JETTYP(3),SHAT,THAT,UHAT,QSQ,X1,X2,PBEAM(2)
	9	2 ,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,JWTYP
	10	3 ,ALFQSQ,CTHW,STHW,Q0W
	11	4 ,INITYP(2),ISIGS,PBEAMS(5)
	12	SAVE /JETPAR/
	13	INTEGER JETTYP,JWTYP,INITYP,ISIGS
	14	REAL P,PT,YJ,PHI,XJ,TH,CTH,STH,SHAT,THAT,UHAT,QSQ,X1,X2,
	15	+ PBEAM,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,
	16	+ ALFQSQ,CTHW,STHW,Q0W,PBEAMS
	17
	18	#endif