1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
2
c written by the UFO converter
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
5
C Parameters that should not be recomputed event by event.
9
G = 2 * DSQRT(AS*PI) ! for the first init
11
MDL_CONJG__CKM3X3 = 1.000000D+00
13
MDL_CKM22 = 1.000000D+00
15
MDL_LHV = 1.000000D+00
17
MDL_CKM3X3 = 1.000000D+00
19
MDL_CONJG__CKM22 = 1.000000D+00
21
MDL_CONJG__CKM33 = 1.000000D+00
23
MDL_NCOL = 3.000000D+00
29
MDL_CF = (4.000000D+00/3.000000D+00)
31
MDL_COMPLEXI = (0.000000D+00,1.000000D+00)
33
MDL_MZ__EXP__2 = MDL_MZ**2
35
MDL_MZ__EXP__4 = MDL_MZ**4
37
MDL_SQRT__2 = SQRT(2.000000D+00)
39
MDL_MH__EXP__2 = MDL_MH**2
41
MDL_NCOL__EXP__2_M_1 = MDL_NCOL**2-1.000000D+00
43
MDL_MB__EXP__2 = MDL_MB**2
45
MDL_MT__EXP__2 = MDL_MT**2
47
MDL_NCOL__EXP__2_M_1_0 = MDL_NCOL**2-1.000000D+00
49
MDL_AEW = 1.000000D+00/AEWM1
51
MDL_MW = SQRT(MDL_MZ__EXP__2/2.000000D+00+SQRT(MDL_MZ__EXP__4
52
$ /4.000000D+00-(MDL_AEW*PI*MDL_MZ__EXP__2)/(MDL_GF*MDL_SQRT__2
55
MDL_SQRT__AEW = SQRT(MDL_AEW)
57
MDL_EE = 2.000000D+00*MDL_SQRT__AEW*SQRT(PI)
59
MDL_MW__EXP__2 = MDL_MW**2
61
MDL_SW2 = 1.000000D+00-MDL_MW__EXP__2/MDL_MZ__EXP__2
63
MDL_CW = SQRT(1.000000D+00-MDL_SW2)
65
MDL_SQRT__SW2 = SQRT(MDL_SW2)
67
MDL_SW = MDL_SQRT__SW2
69
MDL_G1 = MDL_EE/MDL_CW
71
MDL_GW = MDL_EE/MDL_SW
73
MDL_V = (2.000000D+00*MDL_MW*MDL_SW)/MDL_EE
75
MDL_V__EXP__2 = MDL_V**2
77
MDL_LAM = MDL_MH__EXP__2/(2.000000D+00*MDL_V__EXP__2)
79
MDL_YB = (MDL_YMB*MDL_SQRT__2)/MDL_V
81
MDL_YT = (MDL_YMT*MDL_SQRT__2)/MDL_V
83
MDL_YTAU = (MDL_YMTAU*MDL_SQRT__2)/MDL_V
85
MDL_MUH = SQRT(MDL_LAM*MDL_V__EXP__2)
87
MDL_AXIALZUP = (3.000000D+00/2.000000D+00)*(-(MDL_EE*MDL_SW)
88
$ /(6.000000D+00*MDL_CW))-(1.000000D+00/2.000000D+00)*((MDL_CW
89
$ *MDL_EE)/(2.000000D+00*MDL_SW))
91
MDL_AXIALZDOWN = (-1.000000D+00/2.000000D+00)*(-(MDL_CW
92
$ *MDL_EE)/(2.000000D+00*MDL_SW))+(-3.000000D+00/2.000000D
93
$ +00)*(-(MDL_EE*MDL_SW)/(6.000000D+00*MDL_CW))
95
MDL_VECTORZUP = (1.000000D+00/2.000000D+00)*((MDL_CW*MDL_EE)
96
$ /(2.000000D+00*MDL_SW))+(5.000000D+00/2.000000D+00)*(
97
$ -(MDL_EE*MDL_SW)/(6.000000D+00*MDL_CW))
99
MDL_VECTORZDOWN = (1.000000D+00/2.000000D+00)*(-(MDL_CW
100
$ *MDL_EE)/(2.000000D+00*MDL_SW))+(-1.000000D+00/2.000000D
101
$ +00)*(-(MDL_EE*MDL_SW)/(6.000000D+00*MDL_CW))
103
MDL_VECTORAUP = (2.000000D+00*MDL_EE)/3.000000D+00
105
MDL_VECTORADOWN = -(MDL_EE)/3.000000D+00
107
MDL_VECTORWMDXU = (1.000000D+00/2.000000D+00)*((MDL_EE)
108
$ /(MDL_SW*MDL_SQRT__2))
110
MDL_AXIALWMDXU = (-1.000000D+00/2.000000D+00)*((MDL_EE)
111
$ /(MDL_SW*MDL_SQRT__2))
113
MDL_VECTORWPUXD = (1.000000D+00/2.000000D+00)*((MDL_EE)
114
$ /(MDL_SW*MDL_SQRT__2))
116
MDL_AXIALWPUXD = -(1.000000D+00/2.000000D+00)*((MDL_EE)
117
$ /(MDL_SW*MDL_SQRT__2))
119
MDL_I1X33 = MDL_YB*MDL_CONJG__CKM3X3
121
MDL_I2X33 = MDL_YT*MDL_CONJG__CKM3X3
123
MDL_I3X33 = MDL_CKM3X3*MDL_YT
125
MDL_I4X33 = MDL_CKM3X3*MDL_YB
127
MDL_VECTOR_TBGP = MDL_I1X33-MDL_I2X33
129
MDL_AXIAL_TBGP = -MDL_I2X33-MDL_I1X33
131
MDL_VECTOR_TBGM = MDL_I3X33-MDL_I4X33
133
MDL_AXIAL_TBGM = -MDL_I4X33-MDL_I3X33
135
MDL_GW__EXP__2 = MDL_GW**2
137
MDL_CW__EXP__2 = MDL_CW**2
139
MDL_EE__EXP__2 = MDL_EE**2
141
MDL_SW__EXP__2 = MDL_SW**2
143
MDL_YB__EXP__2 = MDL_YB**2
145
MDL_YT__EXP__2 = MDL_YT**2
149
C Parameters that should be recomputed at an event by even basis.
153
MDL_MU_R__EXP__2 = MU_R**2
155
MDL_SQRT__AS = SQRT(AS)
164
C Definition of the EW coupling used in the write out of aqed
166
GAL(1) = 3.5449077018110318 / DSQRT(AEWM1)