11
11
MDL_CONJG__CKM3X3 = 1.000000D+00
13
MDL_CONJG__CKM22 = 1.000000D+00
15
MDL_LHV = 1.000000D+00
17
MDL_CKM33 = 1.000000D+00
13
19
MDL_CKM22 = 1.000000D+00
15
MDL_LHV = 1.000000D+00
17
21
MDL_CKM3X3 = 1.000000D+00
19
MDL_CONJG__CKM22 = 1.000000D+00
21
MDL_CONJG__CKM33 = 1.000000D+00
23
23
MDL_NCOL = 3.000000D+00
25
25
MDL_CA = 3.000000D+00
155
155
MDL_G__EXP__2 = G**2
157
MDL_GWCFT_UV_B_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
158
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
159
$ *4.000000D+00*MDL_TF))
161
MDL_GWCFT_UV_T_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
162
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
163
$ *4.000000D+00*MDL_TF))
165
MDL_BWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
166
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
167
$ *3.000000D+00*MDL_CF))
169
MDL_TWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
170
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
171
$ *3.000000D+00*MDL_CF))
173
157
MDL_G__EXP__3 = G**3
175
159
MDL_MU_R__EXP__2 = MU_R**2
177
MDL_GWCFT_UV_B_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
178
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
179
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
180
$ /MDL_MU_R__EXP__2))))
182
MDL_GWCFT_UV_T_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
183
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
184
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
185
$ /MDL_MU_R__EXP__2))))
187
MDL_BWCFT_UV_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
188
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
189
$ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MB__EXP__2
190
$ /MDL_MU_R__EXP__2)))))
192
MDL_TWCFT_UV_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
193
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
194
$ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MT__EXP__2
195
$ /MDL_MU_R__EXP__2)))))
162
C Parameters that should be updated for the loops.
198
165
C Definition of the EW coupling used in the write out of aqed
200
GAL(1) = 3.5449077018110318D0 / DSQRT(AEWM1)
167
GAL(1) = 3.5449077018110318D0 / DSQRT(ABS(AEWM1))