9
9
MP__G = 2 * SQRT(MP__AS*MP__PI) ! for the first init
11
MP__MDL_CKM33 = 1.000000E+00_16
13
11
MP__MDL_CONJG__CKM3X3 = 1.000000E+00_16
15
13
MP__MDL_CKM22 = 1.000000E+00_16
15
MP__MDL_CONJG__CKM22 = 1.000000E+00_16
17
MP__MDL_CKM33 = 1.000000E+00_16
19
MP__MDL_CKM3X3 = 1.000000E+00_16
17
21
MP__MDL_LHV = 1.000000E+00_16
19
MP__MDL_CKM3X3 = 1.000000E+00_16
21
MP__MDL_CONJG__CKM22 = 1.000000E+00_16
23
23
MP__MDL_NCOL = 3.000000E+00_16
25
25
MP__MDL_CA = 3.000000E+00_16
227
227
MP__MDL_BWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
228
228
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
229
229
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
230
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__E
231
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
230
$ *(4.000000E+00_16-3.000000E+00_16
231
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
232
$ ,KIND=16))),KIND=16))
233
234
MP__MDL_TWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
234
235
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
235
236
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
236
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
237
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
237
$ *(4.000000E+00_16-3.000000E+00_16
238
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
239
$ ,KIND=16))),KIND=16))
239
241
MP__MDL_TMASS_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
240
242
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
241
243
$ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*MP__MDL_CF
242
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
243
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16)))*MP__MDL_MT,KIND=16))
244
$ *(4.000000E+00_16-3.000000E+00_16
245
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
246
$ ,KIND=16)))*MP__MDL_MT,KIND=16))
246
249
C Definition of the EW coupling used in the write out of aqed