ISAJET/isajet/jetpar.inc

   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