DIME/DCommon.h

   1 #ifndef ROOT_DCommon
   2 #define ROOT_DCommon
   3
   4 #ifndef __CFORTRAN_LOADED
   5 //*KEEP,cfortran.
   6 #include "cfortran.h"
   7 //*KEND.
   8 #endif
   9
  10 /*
  11 ccccc hepevt output
  12       integer nmxhep,kk
  13       parameter (nmxhep=4000)
  14       integer nevhep,nhep,isthep,idhep,jmohep,jdahep
  15       double precision phep,vhep
  16       common /hepevt/ nevhep,nhep,isthep(nmxhep),idhep(nmxhep),
  17      &jmohep(2,nmxhep),jdahep(2,nmxhep),phep(5,nmxhep),vhep(4,nmxhep)
  18 */
  19   const Int_t nmxhep = 4000;
  20   typedef struct {
  21     Int_t nevhep;
  22     Int_t nhep;
  23     Int_t isthep[nmxhep];
  24     Int_t idhep[nmxhep];
  25     Int_t jmohep[nmxhep][2];
  26     Int_t jdahep[nmxhep][2];
  27     Double_t phep[nmxhep][5];
  28     Double_t vhep[nmxhep][4];
  29   } hepevtCommon;
  30
  31 #define HEPEVT COMMON_BLOCK(HEPEVT, hepevt)
  32 COMMON_BLOCK_DEF(hepevtCommon, HEPEVT);
  33
  34 /*
  35 ccccc Les Houches  Event Common Block
  36       INTEGER MAXNUP
  37       PARAMETER (MAXNUP=500)
  38       INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP
  39       DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP
  40       COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP,
  41      &              IDUP(MAXNUP),ISTUP(MAXNUP),MOTHUP(2,MAXNUP),
  42      &              ICOLUP(2,MAXNUP),PUP(5,MAXNUP),VTIMUP(MAXNUP),
  43      &              SPINUP(MAXNUP)
  44   */
  45  extern "C" {
  46   const Int_t MAXNUP = 500;
  47   typedef struct {
  48     Int_t NUP;
  49     Int_t IDPRUP;
  50     Double_t XWGTUP;
  51     Double_t SCALUP;
  52     Double_t AQEDUP;
  53     Double_t AQCDUP;
  54     Int_t IDUP[MAXNUP];
  55     Int_t ISTUP[MAXNUP];
  56     Int_t MOTHUP[MAXNUP][2];
  57     Int_t ICOLUP[MAXNUP][2];
  58     Double_t PUP[MAXNUP][5];
  59     Double_t VTIMUP[MAXNUP];
  60     Double_t SPINUP[MAXNUP];
  61   } hepeupCommon;
  62
  63 #define HEPEUP COMMON_BLOCK(HEPEUP, hepeup)
  64 COMMON_BLOCK_DEF(hepeupCommon, HEPEUP);
  65
  66   /*
  67     common/vars/s,rts,mmes,yx
  68   */
  69     typedef struct {
  70       Double_t s;
  71       Double_t rts;
  72       Double_t mmes;
  73       Double_t yx;
  74       Int_t    iin;
  75     } varsCommon;
  76
  77 #define VARS COMMON_BLOCK(VARS, vars)
  78   COMMON_BLOCK_DEF(varsCommon, VARS);
  79
  80
  81   //ccc
  82   //      common/cuts/etaelmax,etaelmin,ptelmin,ptphmin,ecut,rmax,rmin,mcut
  83   typedef struct {
  84     Double_t etaelmax;
  85     Double_t etaelmin;
  86     Double_t ptelmin;
  87     Double_t ptphmin;
  88     Double_t ecut;
  89     Double_t rmax;
  90     Double_t rmin;
  91     Double_t mcut;
  92   } cutsCommon;
  93 #define CUTS COMMON_BLOCK(CUTS, cuts)
  94  COMMON_BLOCK_DEF(cutsCommon, CUTS);
  95
  96   /*
  97  character prefix*50,fsp*10,order*10,pflag*10,fsi*10,formf*10
  98      &,ppbar*10,output*10,mregge*10,cuts*10,unw*10
  99       common/flags/ iin, pflag, fsi, ppbar, output, cuts, unw
 100       common/ff/formf
 101   */
 102    typedef struct {
 103      char pflag[10];
 104      char fsi[10];
 105      char ppbar[10];
 106      char output[10];
 107      char cuts[10];
 108      char unw[10];
 109     } flagsCommon;
 110
 111 #define FLAGS COMMON_BLOCK(FLAGS, flags)
 112   COMMON_BLOCK_DEF(flagsCommon, FLAGS);
 113
 114   typedef struct {
 115     char formf[10];
 116   } ffCommon;
 117 #define FF COMMON_BLOCK(FF, ff)
 118   COMMON_BLOCK_DEF(ffCommon, FF);
 119
 120
 121 #endif
 122 }
 123