3
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
5
5
REAL*16 MP__MDL_SQRT__AS,MP__MDL_G__EXP__4,MP__MDL_G__EXP__2
6
$ ,MP__MDL_G_UVG_1EPS_,MP__MDL_G_UVQ_1EPS_,MP__MDL_G_UVB_1EPS_
7
$ ,MP__MDL_GWCFT_UV_B_1EPS_,MP__MDL_GWCFT_UV_T_1EPS_
8
$ ,MP__MDL_BWCFT_UV_1EPS_,MP__MDL_TWCFT_UV_1EPS_
9
$ ,MP__MDL_G__EXP__3,MP__MDL_MU_R__EXP__2,MP__MDL_G_UVB_FIN_
10
$ ,MP__MDL_G_UVT_FIN_,MP__MDL_GWCFT_UV_B_FIN_,MP__MDL_GWCFT_UV_T_F
11
$IN_,MP__MDL_BWCFT_UV_FIN_,MP__MDL_TWCFT_UV_FIN_
12
$ ,MP__MDL_CONJG__CKM3X3,MP__MDL_CKM22,MP__MDL_LHV,MP__MDL_CKM3X3
13
$ ,MP__MDL_CONJG__CKM22,MP__MDL_CONJG__CKM33,MP__MDL_NCOL
6
$ ,MP__MDL_G_UVG_1EPS_,MP__MDL_G_UVB_1EPS_,MP__MDL_G__EXP__3
7
$ ,MP__MDL_MU_R__EXP__2,MP__MDL_G_UVB_FIN_,MP__MDL_G_UVT_FIN_
8
$ ,MP__MDL_CONJG__CKM3X3,MP__MDL_CONJG__CKM22,MP__MDL_LHV
9
$ ,MP__MDL_CKM33,MP__MDL_CKM22,MP__MDL_CKM3X3,MP__MDL_NCOL
14
10
$ ,MP__MDL_CA,MP__MDL_TF,MP__MDL_CF,MP__MDL_MZ__EXP__2
15
11
$ ,MP__MDL_MZ__EXP__4,MP__MDL_SQRT__2,MP__MDL_MH__EXP__2
16
12
$ ,MP__MDL_NCOL__EXP__2,MP__MDL_MB__EXP__2,MP__MDL_MT__EXP__2
29
25
COMMON/MP_PARAMS_R/ MP__MDL_SQRT__AS,MP__MDL_G__EXP__4
30
$ ,MP__MDL_G__EXP__2,MP__MDL_G_UVG_1EPS_,MP__MDL_G_UVQ_1EPS_
31
$ ,MP__MDL_G_UVB_1EPS_,MP__MDL_GWCFT_UV_B_1EPS_
32
$ ,MP__MDL_GWCFT_UV_T_1EPS_,MP__MDL_BWCFT_UV_1EPS_
33
$ ,MP__MDL_TWCFT_UV_1EPS_,MP__MDL_G__EXP__3,MP__MDL_MU_R__EXP__2
34
$ ,MP__MDL_G_UVB_FIN_,MP__MDL_G_UVT_FIN_,MP__MDL_GWCFT_UV_B_FIN_
35
$ ,MP__MDL_GWCFT_UV_T_FIN_,MP__MDL_BWCFT_UV_FIN_
36
$ ,MP__MDL_TWCFT_UV_FIN_,MP__MDL_CONJG__CKM3X3,MP__MDL_CKM22
37
$ ,MP__MDL_LHV,MP__MDL_CKM3X3,MP__MDL_CONJG__CKM22
38
$ ,MP__MDL_CONJG__CKM33,MP__MDL_NCOL,MP__MDL_CA,MP__MDL_TF
39
$ ,MP__MDL_CF,MP__MDL_MZ__EXP__2,MP__MDL_MZ__EXP__4
40
$ ,MP__MDL_SQRT__2,MP__MDL_MH__EXP__2,MP__MDL_NCOL__EXP__2
41
$ ,MP__MDL_MB__EXP__2,MP__MDL_MT__EXP__2,MP__MDL_AEW
42
$ ,MP__MDL_SQRT__AEW,MP__MDL_EE,MP__MDL_MW__EXP__2,MP__MDL_SW2
43
$ ,MP__MDL_CW,MP__MDL_SQRT__SW2,MP__MDL_SW,MP__MDL_G1,MP__MDL_GW
44
$ ,MP__MDL_V,MP__MDL_V__EXP__2,MP__MDL_LAM,MP__MDL_YB,MP__MDL_YT
45
$ ,MP__MDL_YTAU,MP__MDL_MUH,MP__MDL_AXIALZUP,MP__MDL_AXIALZDOWN
46
$ ,MP__MDL_VECTORZUP,MP__MDL_VECTORZDOWN,MP__MDL_VECTORAUP
47
$ ,MP__MDL_VECTORADOWN,MP__MDL_VECTORWMDXU,MP__MDL_AXIALWMDXU
48
$ ,MP__MDL_VECTORWPUXD,MP__MDL_AXIALWPUXD,MP__MDL_GW__EXP__2
49
$ ,MP__MDL_CW__EXP__2,MP__MDL_EE__EXP__2,MP__MDL_SW__EXP__2
50
$ ,MP__MDL_YB__EXP__2,MP__MDL_YT__EXP__2,MP__AEWM1,MP__MDL_GF
51
$ ,MP__AS,MP__MDL_YMB,MP__MDL_YMT,MP__MDL_YMTAU
26
$ ,MP__MDL_G__EXP__2,MP__MDL_G_UVG_1EPS_,MP__MDL_G_UVB_1EPS_
27
$ ,MP__MDL_G__EXP__3,MP__MDL_MU_R__EXP__2,MP__MDL_G_UVB_FIN_
28
$ ,MP__MDL_G_UVT_FIN_,MP__MDL_CONJG__CKM3X3,MP__MDL_CONJG__CKM22
29
$ ,MP__MDL_LHV,MP__MDL_CKM33,MP__MDL_CKM22,MP__MDL_CKM3X3
30
$ ,MP__MDL_NCOL,MP__MDL_CA,MP__MDL_TF,MP__MDL_CF
31
$ ,MP__MDL_MZ__EXP__2,MP__MDL_MZ__EXP__4,MP__MDL_SQRT__2
32
$ ,MP__MDL_MH__EXP__2,MP__MDL_NCOL__EXP__2,MP__MDL_MB__EXP__2
33
$ ,MP__MDL_MT__EXP__2,MP__MDL_AEW,MP__MDL_SQRT__AEW,MP__MDL_EE
34
$ ,MP__MDL_MW__EXP__2,MP__MDL_SW2,MP__MDL_CW,MP__MDL_SQRT__SW2
35
$ ,MP__MDL_SW,MP__MDL_G1,MP__MDL_GW,MP__MDL_V,MP__MDL_V__EXP__2
36
$ ,MP__MDL_LAM,MP__MDL_YB,MP__MDL_YT,MP__MDL_YTAU,MP__MDL_MUH
37
$ ,MP__MDL_AXIALZUP,MP__MDL_AXIALZDOWN,MP__MDL_VECTORZUP
38
$ ,MP__MDL_VECTORZDOWN,MP__MDL_VECTORAUP,MP__MDL_VECTORADOWN
39
$ ,MP__MDL_VECTORWMDXU,MP__MDL_AXIALWMDXU,MP__MDL_VECTORWPUXD
40
$ ,MP__MDL_AXIALWPUXD,MP__MDL_GW__EXP__2,MP__MDL_CW__EXP__2
41
$ ,MP__MDL_EE__EXP__2,MP__MDL_SW__EXP__2,MP__MDL_YB__EXP__2
42
$ ,MP__MDL_YT__EXP__2,MP__AEWM1,MP__MDL_GF,MP__AS,MP__MDL_YMB
43
$ ,MP__MDL_YMT,MP__MDL_YMTAU
54
46
COMPLEX*32 MP__MDL_TMASS_UV_1EPS_,MP__MDL_TMASS_UV_FIN_