155
155
MDL_G__EXP__2 = G**2
157
MDL_G_UVG_1EPS_ = -((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
158
$ *PI**2))*1.100000D+01*MDL_CA
160
MDL_G_UVQ_1EPS_ = ((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI
161
$ **2))*4.000000D+00*MDL_TF
163
MDL_G_UVB_1EPS_ = ((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI
164
$ **2))*4.000000D+00*MDL_TF
166
MDL_GWCFT_UV_B_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
167
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
168
$ *4.000000D+00*MDL_TF))
170
MDL_GWCFT_UV_T_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
171
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
172
$ *4.000000D+00*MDL_TF))
174
MDL_BWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
175
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
176
$ *3.000000D+00*MDL_CF))
178
MDL_TWCFT_UV_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
179
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
180
$ *3.000000D+00*MDL_CF))
182
MDL_TMASS_UV_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
183
$ ,DCMPLX(MDL_COMPLEXI*((MDL_G__EXP__2)/(1.600000D+01*PI**2))
184
$ *3.000000D+00*MDL_CF*MDL_MT))
186
157
MDL_G__EXP__3 = G**3
188
159
MDL_MU_R__EXP__2 = MU_R**2
190
MDL_G_UVB_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
191
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
192
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
193
$ /MDL_MU_R__EXP__2))))
195
MDL_G_UVT_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
196
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
197
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
198
$ /MDL_MU_R__EXP__2))))
200
MDL_GWCFT_UV_B_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
201
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
202
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
203
$ /MDL_MU_R__EXP__2))))
205
MDL_GWCFT_UV_T_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
206
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
207
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
208
$ /MDL_MU_R__EXP__2))))
210
MDL_BWCFT_UV_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
211
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
212
$ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MB__EXP__2
213
$ /MDL_MU_R__EXP__2)))))
215
MDL_TWCFT_UV_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
216
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
217
$ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MT__EXP__2
218
$ /MDL_MU_R__EXP__2)))))
220
MDL_TMASS_UV_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
221
$ ,DCMPLX(MDL_COMPLEXI*((MDL_G__EXP__2)/(1.600000D+01*PI**2))
222
$ *MDL_CF*(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MT__EXP__2
223
$ /MDL_MU_R__EXP__2)))*MDL_MT))
162
C Parameters that should be updated for the loops.
165
MDL_G_UVG_1EPS_ = -((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
166
$ *PI**2))*1.100000D+01*MDL_CA
168
MDL_G_UVB_1EPS_ = ((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01
169
$ *PI**2))*4.000000D+00*MDL_TF
171
MDL_TMASS_UV_1EPS_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
172
$ ,DCMPLX(MDL_COMPLEXI*((MDL_G__EXP__2)/(1.600000D+01*PI**2))
173
$ *3.000000D+00*MDL_CF*MDL_MT))
175
MDL_G_UVB_FIN_ = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
176
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
177
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
178
$ /MDL_MU_R__EXP__2))))
180
MDL_G_UVT_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
181
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
182
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
183
$ /MDL_MU_R__EXP__2))))
185
MDL_TMASS_UV_FIN_ = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
186
$ ,DCMPLX(MDL_COMPLEXI*((MDL_G__EXP__2)/(1.600000D+01*PI**2))
187
$ *MDL_CF*(4.000000D+00-3.000000D+00
188
$ *REGLOG(DCMPLX(MDL_MT__EXP__2/MDL_MU_R__EXP__2)))*MDL_MT))
226
192
C Definition of the EW coupling used in the write out of aqed
228
GAL(1) = 3.5449077018110318D0 / DSQRT(AEWM1)
194
GAL(1) = 3.5449077018110318D0 / DSQRT(ABS(AEWM1))