]>
Commit | Line | Data |
---|---|---|
0b5dd071 | 1 | #ifndef ROOT_TPHICcommon |
2 | #define ROOT_TPHICcommon | |
3 | //------------------------------------------------------------------------ | |
4 | // TPHICcommon is an interface COMMON blocks of the fortran event generator | |
5 | // of two-photon processes in ultraperipheral ion collisions | |
6 | //% | |
7 | // Yuri.Kharlov@cern.ch | |
8 | // 15 April 2003 | |
9 | //------------------------------------------------------------------------ | |
10 | ||
11 | #ifndef __CFORTRAN_LOADED | |
12 | #include "cfortran.h" | |
13 | #endif | |
14 | ||
15 | // COMMON /ggini/ iproc,nevent,ilumf,lumfil,ebmn,eb,iz,ia,amas, | |
16 | // & amin,amax,ymin,ymax,nmas,ny, kferm, | |
17 | // & kf_onium,xmres,xgtres,xggres, xlumint, moddcy, | |
18 | // & thetamin, costhv1, kv1,kv2,gvpar(4) | |
19 | // CHARACTER lumfil*80 | |
20 | extern "C" { | |
21 | typedef struct { | |
22 | Int_t iproc; | |
23 | Int_t nevent; | |
24 | Int_t ilumf; | |
25 | char lumfil[80]; | |
26 | Float_t ebmn; | |
27 | Float_t eb; | |
28 | Int_t iz; | |
29 | Int_t ia; | |
30 | Float_t amas; | |
31 | Float_t amin; | |
32 | Float_t amax; | |
33 | Float_t ymin; | |
34 | Float_t ymax; | |
35 | Int_t nmas; | |
36 | Int_t ny; | |
37 | Int_t kferm; | |
38 | Int_t kfonium; | |
39 | Float_t xmres; | |
40 | Float_t xgtres; | |
41 | Float_t xggres; | |
42 | Float_t xlumint; | |
43 | Int_t moddcy; | |
44 | Float_t thetamin; | |
45 | Float_t costhv1; | |
46 | Int_t kv1; | |
47 | Int_t kv2; | |
48 | Float_t qvpar[4]; | |
49 | } GGiniCommon; | |
32f7fd11 | 50 | #ifdef IN_TPHICGEN_CXX |
0b5dd071 | 51 | #define GGINI COMMON_BLOCK(GGINI,ggini) |
52 | COMMON_BLOCK_DEF(GGiniCommon,GGINI); | |
32f7fd11 | 53 | #endif |
0b5dd071 | 54 | |
55 | // COMMON /ggevnt/ nrun,ievent,wsq,ygg,xmg1,xmg2, p2g(5), | |
56 | // & ptag1(4),ptag2(4), ngg, kgg(10),pgg(20,5) | |
57 | typedef struct { | |
58 | Int_t nrun; | |
59 | Int_t ievent; | |
60 | Float_t wsq; | |
61 | Float_t ygg; | |
62 | Float_t xmg1; | |
63 | Float_t xmg2; | |
64 | Float_t p2g[5]; | |
65 | Float_t ptag1[4]; | |
66 | Float_t ptag2[4]; | |
67 | Int_t ngg; | |
68 | Int_t kgg[10]; | |
69 | Float_t pgg[5][20]; | |
70 | } GGevntCommon; | |
71 | #define GGEVNT COMMON_BLOCK(GGEVNT,ggevnt) | |
32f7fd11 | 72 | #ifdef IN_TPHICGEN_CXX |
0b5dd071 | 73 | COMMON_BLOCK_DEF(GGevntCommon,GGEVNT); |
32f7fd11 | 74 | #endif |
0b5dd071 | 75 | |
76 | // COMMON /ggxs/ xsmax0, xscur0, xscur, xsbra, xssum, ntry, xstot, | |
77 | // & xstote, ssbr(10) | |
78 | typedef struct { | |
79 | Float_t xsmax0; | |
80 | Float_t xscur0; | |
81 | Float_t xscur; | |
82 | Float_t xsbra; | |
83 | Float_t xssum; | |
84 | Int_t ntry; | |
85 | Float_t xstot; | |
86 | Float_t xstote; | |
87 | Float_t ssbr[10]; | |
88 | } GGxsCommon; | |
32f7fd11 | 89 | #ifdef IN_TPHICGEN_CXX |
0b5dd071 | 90 | #define GGXS COMMON_BLOCK(GGXS,ggxs) |
91 | COMMON_BLOCK_DEF(GGxsCommon,GGXS); | |
32f7fd11 | 92 | #endif |
0b5dd071 | 93 | |
94 | } | |
95 | ||
96 | #endif |