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 #define GGINI COMMON_BLOCK(GGINI,ggini)
51 COMMON_BLOCK_DEF(GGiniCommon,GGINI);
53 // COMMON /ggevnt/ nrun,ievent,wsq,ygg,xmg1,xmg2, p2g(5),
54 // & ptag1(4),ptag2(4), ngg, kgg(10),pgg(20,5)
69 #define GGEVNT COMMON_BLOCK(GGEVNT,ggevnt)
70 COMMON_BLOCK_DEF(GGevntCommon,GGEVNT);
72 // COMMON /ggxs/ xsmax0, xscur0, xscur, xsbra, xssum, ntry, xstot,
85 #define GGXS COMMON_BLOCK(GGXS,ggxs)
86 COMMON_BLOCK_DEF(GGxsCommon,GGXS);