Warning, /include/isajet/jetpar.inc is written in an unsupported language. File is not indexed.
0001 #ifndef CERNLIB_ISAJET_JETPAR_INC
0002 #define CERNLIB_ISAJET_JETPAR_INC
0003 *
0004 *
0005 * jetpar.inc
0006 *
0007 COMMON/JETPAR/P(3),PT(3),YJ(3),PHI(3),XJ(3),TH(3),CTH(3),STH(3)
0008 1 ,JETTYP(3),SHAT,THAT,UHAT,QSQ,X1,X2,PBEAM(2)
0009 2 ,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,JWTYP
0010 3 ,ALFQSQ,CTHW,STHW,Q0W
0011 4 ,INITYP(2),ISIGS,PBEAMS(5)
0012 SAVE /JETPAR/
0013 INTEGER JETTYP,JWTYP,INITYP,ISIGS
0014 REAL P,PT,YJ,PHI,XJ,TH,CTH,STH,SHAT,THAT,UHAT,QSQ,X1,X2,
0015 + PBEAM,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,
0016 + ALFQSQ,CTHW,STHW,Q0W,PBEAMS
0017
0018 #endif
