1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
2
c written by the UFO converter
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
8
INCLUDE 'model_functions.inc'
9
REAL*16 MP__PI, MP__ZERO
10
PARAMETER (MP__PI=3.1415926535897932384626433832795E0_16)
11
PARAMETER (MP__ZERO=0E0_16)
12
INCLUDE 'mp_input.inc'
13
INCLUDE 'mp_coupl.inc'
15
MP__UV_GQQB = MP__MDL_COMPLEXI*MP__MDL_G_UVB_FIN_*MP__G
16
MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
17
MP__UV_BMASS = MP__MDL_BMASS_UV_FIN_
18
MP__UV_TMASS = MP__MDL_TMASS_UV_FIN_
19
MP__UVWFCT_B_0 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
20
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
21
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
22
$ *(4.000000E+00_16-3.000000E+00_16
23
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
24
$ ,KIND=16))),KIND=16))
25
MP__UVWFCT_T_0 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
26
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
27
$ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
28
$ *(4.000000E+00_16-3.000000E+00_16
29
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
30
$ ,KIND=16))),KIND=16))
31
MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
32
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
33
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
34
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
35
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
36
MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
37
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
38
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
39
$ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
40
$ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))