1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
2
c written by the UFO converter
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
9
PARAMETER (MP__PI=3.1415926535897932384626433832795E0_16)
10
INCLUDE 'mp_input.inc'
11
INCLUDE 'mp_coupl.inc'
14
INCLUDE 'model_functions.inc'
15
MP__UV_GQQB = MP__MDL_COMPLEXI*(MP_COND(CMPLX(MP__MDL_MB
16
$ ,KIND=16),CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP
17
$ __2)/(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
18
$ +00_16*MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU
19
$ _R__EXP__2),KIND=16)),KIND=16)))*MP__G
20
MP__UV_GQQT = MP__MDL_COMPLEXI*(MP_COND(CMPLX(MP__MDL_MT
21
$ ,KIND=16),CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP
22
$ __2)/(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
23
$ +00_16*MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU
24
$ _R__EXP__2),KIND=16)),KIND=16)))*MP__G
25
MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000
26
$ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
27
$ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
28
$ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
29
$ ,KIND=16)),KIND=16))
30
MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000
31
$ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
32
$ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
33
$ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
34
$ ,KIND=16)),KIND=16))
35
MP__R2_SXCW = ((MP__MDL_CKM22*MP__MDL_EE*MP__MDL_COMPLEXI)
36
$ /(MP__MDL_SW*MP__MDL_SQRT__2))*(-(MP__MDL_G__EXP__2*(1.000000E
37
$ +00_16+MP__MDL_LHV)*(MP__MDL_NCOL__EXP__2_M_1_0))/(2.000000E
38
$ +00_16*MP__MDL_NCOL*1.600000E+01_16*MP__PI**2))
40
MP__GC_5 = MP__MDL_COMPLEXI*MP__G
41
MP__R2_GQQ = -MP__MDL_COMPLEXI*MP__MDL_G__EXP__3/(1.600000E
42
$ +01_16*MP__PI**2)*((MP__MDL_NCOL__EXP__2_M_1)/(2.000000E
43
$ +00_16*MP__MDL_NCOL))*(1.000000E+00_16+MP__MDL_LHV)
44
MP__R2_QQQ = MP__MDL_LHV*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
45
$ *(MP__MDL_NCOL__EXP__2_M_1)/(3.200000E+01_16*MP__PI**2
47
MP__UV_GQQG_1EPS = MP__MDL_COMPLEXI*(-((MP__MDL_G__EXP__2)
48
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*1.100000E
49
$ +01_16*MP__MDL_CA)*MP__G
50
MP__UV_GQQQ_1EPS = MP__MDL_COMPLEXI*(((MP__MDL_G__EXP__2)
51
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
52
$ +00_16*MP__MDL_TF)*MP__G
53
MP__UVWFCT_G_2_1EPS = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
54
$ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
55
$ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
56
$ +00_16*MP__MDL_TF,KIND=16))