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
7 // Yuri.Kharlov@cern.ch
9 //------------------------------------------------------------------------
11 #ifndef __CFORTRAN_LOADED
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
50 #ifdef IN_TPHICGEN_CXX
51 #define GGINI COMMON_BLOCK(GGINI,ggini)
52 COMMON_BLOCK_DEF(GGiniCommon,GGINI);
55 // COMMON /ggevnt/ nrun,ievent,wsq,ygg,xmg1,xmg2, p2g(5),
56 // & ptag1(4),ptag2(4), ngg, kgg(10),pgg(20,5)
71 #define GGEVNT COMMON_BLOCK(GGEVNT,ggevnt)
72 #ifdef IN_TPHICGEN_CXX
73 COMMON_BLOCK_DEF(GGevntCommon,GGEVNT);
76 // COMMON /ggxs/ xsmax0, xscur0, xscur, xsbra, xssum, ntry, xstot,
89 #ifdef IN_TPHICGEN_CXX
90 #define GGXS COMMON_BLOCK(GGXS,ggxs)
91 COMMON_BLOCK_DEF(GGxsCommon,GGXS);