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