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