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