12
12
PARAMETER (ZERO=0D0)
13
13
INCLUDE 'input.inc'
14
14
INCLUDE 'coupl.inc'
15
UV_TMASS_1EPS = MDL_TMASS_UV_1EPS_
16
UVWFCT_B_0_1EPS = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
17
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))
18
$ *3.000000D+00*MDL_CF))
19
UVWFCT_G_1_1EPS = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
20
$ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
21
$ *4.000000D+00*MDL_TF))
15
UVWFCT_T_0 = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00),DCMPLX(
16
$ -((MDL_G__EXP__2)/(2.000000D+00*1.600000D+01*PI**2))*MDL_CF
17
$ *(4.000000D+00-3.000000D+00*REGLOG(DCMPLX(MDL_MT__EXP__2
18
$ /MDL_MU_R__EXP__2)))))
19
UVWFCT_G_1 = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00)
20
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
21
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2
22
$ /MDL_MU_R__EXP__2))))
23
UVWFCT_G_2 = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
24
$ ,DCMPLX(((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
25
$ *4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2
26
$ /MDL_MU_R__EXP__2))))