f_Variables.h

00001 #ifndef _f_TauolaVariables_h_included_
00002 #define _f_TauolaVariables_h_included_
00003 
00004 /**
00005  * This file contains definitions of tauola fortran routines and common
00006  * blocks so they can be access by the C++ code.
00007  *
00008  * @author Nadia Davidson
00009  * @date June 17 2008
00010  */
00011 
00012 namespace Tauolapp
00013 {
00014 
00015 extern "C" {
00016   extern struct { //particle masses
00017     float amtau;
00018     float amnuta;
00019     float amell;
00020     float amnue;
00021     float ammu;
00022     float amnumu;
00023     float ampiz;
00024     float ampi;
00025     float amro;
00026     float gamro;
00027     float ama1;
00028     float gama1;
00029     float amk;
00030     float amkz;
00031     float amkst;
00032     float gamkst;
00033   } parmas_;
00034 
00035   extern struct {
00036     int jak1;
00037     int jak2;
00038     int jakp;
00039     int jakm;
00040     int ktom;
00041   } jaki_;
00042 
00043 
00044   extern struct {
00045     float itdkrc;
00046     float xk0dec;
00047   } taurad_;
00048 
00049   extern struct {
00050     float gamprt[30];
00051     int   jlist[30];
00052     int   nchan;
00053   } taubra_;
00054 
00055   extern struct {
00056     float bra1,brk0,brk0b,brks;
00057   } taukle_;
00058 
00059   //extern float amas4_(float*);
00060   //extern void bostr3_(float*, float*, float*);
00061   extern void filhep_(int * N, int * IST, int * ID,
00062                       int * JMO1, int * JMO2, int * JDA1, int * JDA2, 
00063                       float P4[4], float * PINV, bool * PHFLAG);
00064 
00065   extern void luhepc_(float flag=2);
00066   extern void lulist_(float flag=2);
00067   
00068   // Initialization of RChL currents
00069   // Dummy for default CLEO installation
00070   extern void inirchl_(int *flag);
00071 
00072 }
00073 
00074 } // namespace Tauolapp
00075 #endif