9
9
MP__G = 2 * SQRT(MP__AS*MP__PI) ! for the first init
11
MP__MDL_LHV = 1.000000E+00_16
11
MP__MDL_CKM33 = 1.000000E+00_16
13
MP__MDL_CKM22 = 1.000000E+00_16
13
15
MP__MDL_CONJG__CKM3X3 = 1.000000E+00_16
15
17
MP__MDL_CONJG__CKM22 = 1.000000E+00_16
17
MP__MDL_CKM22 = 1.000000E+00_16
19
MP__MDL_CKM33 = 1.000000E+00_16
21
19
MP__MDL_CKM3X3 = 1.000000E+00_16
21
MP__MDL_LHV = 1.000000E+00_16
23
23
MP__MDL_NCOL = 3.000000E+00_16
25
25
MP__MDL_CA = 3.000000E+00_16
166
166
MP__MDL_G__EXP__2 = MP__G**2
168
MP__MDL_G__EXP__3 = MP__G**3
170
MP__MDL_MU_R__EXP__2 = MP__MU_R**2
173
C Parameters that should be updated for the loops.
168
175
MP__MDL_R2MIXEDFACTOR_FIN_ = -(MP__MDL_G__EXP__2*(1.000000E
169
176
$ +00_16+MP__MDL_LHV)*(MP__MDL_NCOL__EXP__2-1.000000E+00_16))
170
177
$ /(2.000000E+00_16*MP__MDL_NCOL*1.600000E+01_16*MP__PI**2)
175
182
MP__MDL_G_UVB_1EPS_ = ((MP__MDL_G__EXP__2)/(2.000000E+00_16
176
183
$ *4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
178
MP__MDL_GWCFT_UV_B_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
179
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
180
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
181
$ *MP__MDL_TF,KIND=16))
183
MP__MDL_GWCFT_UV_T_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
184
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
185
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
186
$ *MP__MDL_TF,KIND=16))
188
MP__MDL_BWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
189
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
190
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
191
$ *MP__MDL_CF,KIND=16))
193
MP__MDL_TWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
194
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
195
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
196
$ *MP__MDL_CF,KIND=16))
198
MP__MDL_G__EXP__3 = MP__G**3
200
MP__MDL_MU_R__EXP__2 = MP__MU_R**2
202
185
MP__MDL_G_UVB_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
203
186
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
204
187
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
211
194
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
212
195
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
214
MP__MDL_GWCFT_UV_B_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
215
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
216
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
217
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
218
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
220
MP__MDL_GWCFT_UV_T_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
221
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
222
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
223
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
224
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
226
MP__MDL_BWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
227
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
228
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
229
$ *(4.000000E+00_16-3.000000E+00_16
230
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
231
$ ,KIND=16))),KIND=16))
233
MP__MDL_TWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
234
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
235
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
236
$ *(4.000000E+00_16-3.000000E+00_16
237
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
238
$ ,KIND=16))),KIND=16))
241
198
C Definition of the EW coupling used in the write out of aqed
243
MP__GAL(1) = 2 * SQRT(MP__PI/MP__AEWM1)
200
MP__GAL(1) = 2 * SQRT(MP__PI/ABS(MP__AEWM1))