TEvtGen/Tauola/f_Variables.h

   1 #ifndef _f_TauolaVariables_h_included_
   2 #define _f_TauolaVariables_h_included_
   3
   4 /**
   5  * This file contains definitions of tauola fortran routines and common
   6  * blocks so they can be access by the C++ code.
   7  *
   8  * @author Nadia Davidson
   9  * @date June 17 2008
  10  */
  11
  12 namespace Tauolapp
  13 {
  14
  15 extern "C" {
  16   extern struct { //particle masses
  17     float amtau;
  18     float amnuta;
  19     float amell;
  20     float amnue;
  21     float ammu;
  22     float amnumu;
  23     float ampiz;
  24     float ampi;
  25     float amro;
  26     float gamro;
  27     float ama1;
  28     float gama1;
  29     float amk;
  30     float amkz;
  31     float amkst;
  32     float gamkst;
  33   } parmas_;
  34
  35   extern struct {
  36     int jak1;
  37     int jak2;
  38     int jakp;
  39     int jakm;
  40     int ktom;
  41   } jaki_;
  42
  43
  44   extern struct {
  45     double xk0dec;
  46     int   itdkrc;
  47   } taurad_;
  48
  49   extern struct {
  50     float gamprt[30];
  51     int   jlist[30];
  52     int   nchan;
  53   } taubra_;
  54
  55   extern struct {
  56     float bra1,brk0,brk0b,brks;
  57   } taukle_;
  58
  59   //extern float amas4_(float*);
  60   //extern void bostr3_(float*, float*, float*);
  61   extern void filhep_(int * N, int * IST, int * ID,
  62                       int * JMO1, int * JMO2, int * JDA1, int * JDA2,
  63                       float P4[4], float * PINV, bool * PHFLAG);
  64
  65   extern void luhepc_(float flag=2);
  66   extern void lulist_(float flag=2);
  67
  68   // Initialization of RChL currents
  69   // Dummy for default CLEO installation
  70   extern void inirchl_(int *flag);
  71
  72 }
  73
  74 } // namespace Tauolapp
  75 #endif