TEPEMGEN/TEcommon.h

   1 #ifndef ROOT_TEcommon
   2 #define ROOT_TEcommon
   3 //------------------------------------------------------------------------
   4 // TEcommon is an interface COMMON blocks of the fortran event generator of
   5 // single e+e- pair production in ultraperipheral PbPb collisions
   6 // at 5.5 GeV/c
   7 //%
   8 // Yuri.Kharlov@cern.ch
   9 // 9 October 2002
  10 //------------------------------------------------------------------------
  11
  12 #ifndef __CFORTRAN_LOADED
  13 #include "cfortran.h"
  14 #endif
  15
  16 // c++ interface to the f77 program - event generator of
  17 // e+e- pair production in ultraperipheral ion collisions
  18 // Author: Yuri Kharlov, 20 September 2002
  19
  20 extern "C" {
  21   typedef struct {
  22     Double_t Xsect2;
  23     Double_t Dsect2;
  24     Double_t Xsecttot;
  25     Double_t Dsecttot;
  26     Int_t    Nevnt;
  27   } EeventCommon;
  28 #define EEVENT COMMON_BLOCK(EEVENT,eevent)
  29   COMMON_BLOCK_DEF(EeventCommon,EEVENT);
  30 }
  31
  32 #endif