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
236
236
MP__MDL_BWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
237
237
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
238
238
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
239
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__E
240
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
239
$ *(4.000000E+00_16-3.000000E+00_16
240
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
241
$ ,KIND=16))),KIND=16))
242
243
MP__MDL_TWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
243
244
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
244
245
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
245
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
246
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
246
$ *(4.000000E+00_16-3.000000E+00_16
247
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
248
$ ,KIND=16))),KIND=16))
248
250
MP__MDL_BMASS_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
249
251
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
250
252
$ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*MP__MDL_CF
251
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__E
252
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16)))*MP__MDL_MB,KIND=16))
253
$ *(4.000000E+00_16-3.000000E+00_16
254
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
255
$ ,KIND=16)))*MP__MDL_MB,KIND=16))
254
257
MP__MDL_TMASS_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
255
258
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
256
259
$ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*MP__MDL_CF
257
$ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
258
$XP__2/MP__MDL_MU_R__EXP__2),KIND=16)))*MP__MDL_MT,KIND=16))
260
$ *(4.000000E+00_16-3.000000E+00_16
261
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
262
$ ,KIND=16)))*MP__MDL_MT,KIND=16))
261
265
C Definition of the EW coupling used in the write out of aqed