|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#ifndef HDECAY_HH
#define HDECAY_HH
extern "C" {
extern struct {
double amsm;
double ama;
double aml;
double amh;
double amch;
} hmass_;
/*
extern struct{
double amchi;
}chimass_;
*/
extern struct {
double ams;
double amc;
double amb;
double amt;
} masses_;
extern struct {
double xlambda;
double amc0;
double amb0;
double amt0;
int n0;
} als_;
extern struct {
double gf;
double alph;
double amtau;
double ammuon;
double amz;
double amw;
} param_;
extern struct {
double vus;
double vcb;
double vub;
} ckmpar_;
extern struct {
double gamc0;
double gamt0;
double gamt1;
double gamw;
double gamz;
} wzwdth_;
extern struct {
int ionsh;
int ionwz;
int iofsusy;
} onshell_;
extern struct {
int nfgg;
} oldfash_;
extern struct {
int ihiggs;
int nnlo;
int ipole;
} flag_;
extern struct {
double smbrb;
double smbrl;
double smbrm;
double smbrs;
double smbrc;
double smbrt;
double smbrg;
double smbrga;
double smbrzga;
double smbrw;
double smbrz;
double smwdth;
} widthsm_;
/*
extern struct{
double amneut;
double xmneut;
double amchar;
double amst;
double amsb;
double amsl;
double amsu;
double amsd;
double amse;
double amsn;
}smass_;
*/
extern struct {
double gat;
double gab;
double glt;
double glb;
double ght;
double ghb;
double gzah;
double gzal;
double ghhh;
double glll;
double ghll;
double glhh;
double ghaa;
double glaa;
double glw;
double ghvv;
double glpm;
double ghpm;
double b;
double a;
} coup_;
extern struct {
double amsb;
} strange_;
double xitla_(int*, double*, double*);
void bernini_(int*);
//fix unused parameter warning
//void hdec_(double*);
void hdec_();
void alsini_(double*);
}
#endif
|