Bug fix: AliHLTComponent::ConfigureFromArgumentString
[u/mrichter/AliRoot.git] / TPHIC / TPHICcommon.h
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;
50 #ifdef IN_TPHICGEN_CXX
51 #define GGINI  COMMON_BLOCK(GGINI,ggini)
52   COMMON_BLOCK_DEF(GGiniCommon,GGINI);
53 #endif
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)
72 #ifdef IN_TPHICGEN_CXX
73   COMMON_BLOCK_DEF(GGevntCommon,GGEVNT);
74 #endif
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;
89 #ifdef IN_TPHICGEN_CXX
90 #define GGXS   COMMON_BLOCK(GGXS,ggxs)
91   COMMON_BLOCK_DEF(GGxsCommon,GGXS);
92 #endif
93
94 }
95
96 #endif