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_G_UVG_1EPS_ = -((MP__MDL_G__EXP__2)/(2.000000E+00_16
169
176
$ *4.800000E+01_16*MP__PI**2))*1.100000E+01_16*MP__MDL_CA
171
178
MP__MDL_G_UVB_1EPS_ = ((MP__MDL_G__EXP__2)/(2.000000E+00_16
172
179
$ *4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
174
MP__MDL_GWCFT_UV_B_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
175
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
176
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
177
$ *MP__MDL_TF,KIND=16))
179
MP__MDL_GWCFT_UV_T_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
180
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
181
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
182
$ *MP__MDL_TF,KIND=16))
184
MP__MDL_BWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
185
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
186
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
187
$ *MP__MDL_CF,KIND=16))
189
MP__MDL_TWCFT_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
190
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
191
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
192
$ *MP__MDL_CF,KIND=16))
194
181
MP__MDL_TMASS_UV_1EPS_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
195
182
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
196
183
$ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*3.000000E
197
184
$ +00_16*MP__MDL_CF*MP__MDL_MT,KIND=16))
199
MP__MDL_G__EXP__3 = MP__G**3
201
MP__MDL_MU_R__EXP__2 = MP__MU_R**2
203
186
MP__MDL_G_UVB_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
204
187
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
205
188
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
212
195
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
213
196
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
215
MP__MDL_GWCFT_UV_B_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
216
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
217
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
218
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
219
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
221
MP__MDL_GWCFT_UV_T_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
222
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
223
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
224
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
225
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
227
MP__MDL_BWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
228
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
229
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
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))
234
MP__MDL_TWCFT_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
235
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
236
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
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))
241
198
MP__MDL_TMASS_UV_FIN_ = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
242
199
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI
243
200
$ *((MP__MDL_G__EXP__2)/(1.600000E+01_16*MP__PI**2))*MP__MDL_CF