doxy: MUON macros, refs, src links, no coll graph
[u/mrichter/AliRoot.git] / TPHIC / TPHICcommon.h
CommitLineData
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
20extern "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