[u/mrichter/AliRoot.git] / TEvtGen / Tauola / f_Variables.h

#ifndef _f_TauolaVariables_h_included_
#define _f_TauolaVariables_h_included_

/**
 * This file contains definitions of tauola fortran routines and common
 * blocks so they can be access by the C++ code.
 *
 * @author Nadia Davidson
 * @date June 17 2008
 */

namespace Tauolapp
{

extern "C" {
  extern struct { //particle masses
    float amtau;
    float amnuta;
    float amell;
    float amnue;
    float ammu;
    float amnumu;
    float ampiz;
    float ampi;
    float amro;
    float gamro;
    float ama1;
    float gama1;
    float amk;
    float amkz;
    float amkst;
    float gamkst;
  } parmas_;

  extern struct {
    int jak1;
    int jak2;
    int jakp;
    int jakm;
    int ktom;
  } jaki_;


  extern struct {
    double xk0dec;
    int   itdkrc;
  } taurad_;

  extern struct {
    float gamprt[30];
    int   jlist[30];
    int   nchan;
  } taubra_;

  extern struct {
    float bra1,brk0,brk0b,brks;
  } taukle_;

  //extern float amas4_(float*);
  //extern void bostr3_(float*, float*, float*);
  extern void filhep_(int * N, int * IST, int * ID,
                      int * JMO1, int * JMO2, int * JDA1, int * JDA2, 
                      float P4[4], float * PINV, bool * PHFLAG);

  extern void luhepc_(float flag=2);
  extern void lulist_(float flag=2);
  
  // Initialization of RChL currents
  // Dummy for default CLEO installation
  extern void inirchl_(int *flag);

}

} // namespace Tauolapp
#endif
Commit	Line	Data
0ca57c2f	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