]>
Commit | Line | Data |
---|---|---|
de4b745b | 1 | #ifndef ROOT_DCommon |
2 | #define ROOT_DCommon | |
3 | ||
4 | #ifndef __CFORTRAN_LOADED | |
5 | //*KEEP,cfortran. | |
6 | #include "cfortran.h" | |
7 | //*KEND. | |
8 | #endif | |
9 | ||
10 | /* | |
11 | ccccc hepevt output | |
12 | integer nmxhep,kk | |
13 | parameter (nmxhep=4000) | |
14 | integer nevhep,nhep,isthep,idhep,jmohep,jdahep | |
15 | double precision phep,vhep | |
16 | common /hepevt/ nevhep,nhep,isthep(nmxhep),idhep(nmxhep), | |
17 | &jmohep(2,nmxhep),jdahep(2,nmxhep),phep(5,nmxhep),vhep(4,nmxhep) | |
18 | */ | |
19 | const Int_t nmxhep = 4000; | |
20 | typedef struct { | |
21 | Int_t nevhep; | |
22 | Int_t nhep; | |
23 | Int_t isthep[nmxhep]; | |
24 | Int_t idhep[nmxhep]; | |
25 | Int_t jmohep[nmxhep][2]; | |
26 | Int_t jdahep[nmxhep][2]; | |
27 | Double_t phep[nmxhep][5]; | |
28 | Double_t vhep[nmxhep][4]; | |
29 | } hepevtCommon; | |
30 | ||
31 | #define HEPEVT COMMON_BLOCK(HEPEVT, hepevt) | |
32 | COMMON_BLOCK_DEF(hepevtCommon, HEPEVT); | |
33 | ||
34 | /* | |
35 | ccccc Les Houches Event Common Block | |
36 | INTEGER MAXNUP | |
37 | PARAMETER (MAXNUP=500) | |
38 | INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP | |
39 | DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP | |
40 | COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP, | |
41 | & IDUP(MAXNUP),ISTUP(MAXNUP),MOTHUP(2,MAXNUP), | |
42 | & ICOLUP(2,MAXNUP),PUP(5,MAXNUP),VTIMUP(MAXNUP), | |
43 | & SPINUP(MAXNUP) | |
44 | */ | |
45 | extern "C" { | |
46 | const Int_t MAXNUP = 500; | |
47 | typedef struct { | |
48 | Int_t NUP; | |
49 | Int_t IDPRUP; | |
50 | Double_t XWGTUP; | |
51 | Double_t SCALUP; | |
52 | Double_t AQEDUP; | |
53 | Double_t AQCDUP; | |
54 | Int_t IDUP[MAXNUP]; | |
55 | Int_t ISTUP[MAXNUP]; | |
56 | Int_t MOTHUP[MAXNUP][2]; | |
57 | Int_t ICOLUP[MAXNUP][2]; | |
58 | Double_t PUP[MAXNUP][5]; | |
59 | Double_t VTIMUP[MAXNUP]; | |
60 | Double_t SPINUP[MAXNUP]; | |
61 | } hepeupCommon; | |
62 | ||
63 | #define HEPEUP COMMON_BLOCK(HEPEUP, hepeup) | |
64 | COMMON_BLOCK_DEF(hepeupCommon, HEPEUP); | |
65 | ||
66 | /* | |
67 | common/vars/s,rts,mmes,yx | |
68 | */ | |
69 | typedef struct { | |
70 | Double_t s; | |
71 | Double_t rts; | |
72 | Double_t mmes; | |
73 | Double_t yx; | |
651c8c13 | 74 | Int_t iin; |
de4b745b | 75 | } varsCommon; |
76 | ||
77 | #define VARS COMMON_BLOCK(VARS, vars) | |
78 | COMMON_BLOCK_DEF(varsCommon, VARS); | |
79 | ||
80 | ||
81 | //ccc | |
82 | // common/cuts/etaelmax,etaelmin,ptelmin,ptphmin,ecut,rmax,rmin,mcut | |
83 | typedef struct { | |
84 | Double_t etaelmax; | |
85 | Double_t etaelmin; | |
86 | Double_t ptelmin; | |
87 | Double_t ptphmin; | |
88 | Double_t ecut; | |
89 | Double_t rmax; | |
90 | Double_t rmin; | |
91 | Double_t mcut; | |
92 | } cutsCommon; | |
93 | #define CUTS COMMON_BLOCK(CUTS, cuts) | |
94 | COMMON_BLOCK_DEF(cutsCommon, CUTS); | |
95 | ||
96 | /* | |
97 | character prefix*50,fsp*10,order*10,pflag*10,fsi*10,formf*10 | |
98 | &,ppbar*10,output*10,mregge*10,cuts*10,unw*10 | |
99 | common/flags/ iin, pflag, fsi, ppbar, output, cuts, unw | |
100 | common/ff/formf | |
101 | */ | |
102 | typedef struct { | |
de4b745b | 103 | char pflag[10]; |
104 | char fsi[10]; | |
105 | char ppbar[10]; | |
106 | char output[10]; | |
107 | char cuts[10]; | |
108 | char unw[10]; | |
109 | } flagsCommon; | |
110 | ||
111 | #define FLAGS COMMON_BLOCK(FLAGS, flags) | |
112 | COMMON_BLOCK_DEF(flagsCommon, FLAGS); | |
113 | ||
114 | typedef struct { | |
115 | char formf[10]; | |
116 | } ffCommon; | |
117 | #define FF COMMON_BLOCK(FF, ff) | |
118 | COMMON_BLOCK_DEF(ffCommon, FF); | |
119 | ||
120 | ||
121 | #endif | |
122 | } | |
123 |