Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/cojets/jetpar.inc is written in an unsupported language. File is not indexed.

0001 *
0002 * $Id: jetpar.inc,v 1.1.1.1 1996/01/11 14:14:51 mclareni Exp $
0003 *
0004 * $Log: jetpar.inc,v $
0005 * Revision 1.1.1.1  1996/01/11 14:14:51  mclareni
0006 * Cojets
0007 *
0008 *
0009 #ifndef CERNLIB_COJETS_JETPAR_INC
0010 #define CERNLIB_COJETS_JETPAR_INC
0011 *
0012 *
0013 * jetpar.inc
0014 *
0015       COMMON/JETPAR/P(3),PT(3),YJ(3),PHI(3),XJ(3),TH(3),CTH(3),STH(3)
0016      1 ,JETTYP(3),SHAT,THAT,UHAT,QSQ,PTFFF,X1,X2,PTA(2,2),XI1,XI2
0017      * ,PTI(2,2),PBEAM(2)
0018      2 ,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,JWTYP
0019      3 ,ALFQSQ,CTHW,STHW,Q0W
0020      4 ,INITYP(2),IACTYP(2),ISIGS,PBEAMS(5)
0021       REAL P,PT,YJ,PHI,XJ,TH,CTH,STH,SHAT,THAT,UHAT,QSQ,PTFFF
0022      *,X1,X2,PTA,XI1,XI2,PTI,PBEAM
0023      1,QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1
0024      2,ALFQSQ,CTHW,STHW,Q0W,PBEAMS
0025 
0026 #endif