]>
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 |