85
85
CALL MP_IXXXXX(P(0,4),ZERO,NHEL(4),-1*IC(4),W(1,4))
86
86
CALL MP_VXXXXX(P(0,5),ZERO,NHEL(5),+1*IC(5),W(1,5))
87
87
CALL MP_FFV1_2(W(1,1),W(1,5),GC_5,ZERO,ZERO,W(1,6))
88
CALL MP_FFV2_3(W(1,4),W(1,3),GC_47,MDL_MW,MDL_WW,W(1,7))
88
CALL MP_FFV2_3(W(1,4),W(1,3),GC_11,MDL_MW,MDL_WW,W(1,7))
89
89
C Amplitude(s) for born diagram with ID 1
90
CALL MP_FFV2_0(W(1,6),W(1,2),W(1,7),GC_47,AMP(1))
90
CALL MP_FFV2_0(W(1,6),W(1,2),W(1,7),GC_11,AMP(1))
91
91
CALL MP_FFV1_1(W(1,2),W(1,5),GC_5,ZERO,ZERO,W(1,8))
92
92
C Amplitude(s) for born diagram with ID 2
93
CALL MP_FFV2_0(W(1,1),W(1,8),W(1,7),GC_47,AMP(2))
94
CALL MP_FFV2_1(W(1,2),W(1,7),GC_47,ZERO,ZERO,W(1,9))
93
CALL MP_FFV2_0(W(1,1),W(1,8),W(1,7),GC_11,AMP(2))
94
CALL MP_FFV2_1(W(1,2),W(1,7),GC_11,ZERO,ZERO,W(1,9))
95
95
C Counter-term amplitude(s) for loop diagram number 3
96
96
CALL MP_R2_QQ_1_0(W(1,6),W(1,9),R2_QQQ,AMPL(1,1))
97
97
C Counter-term amplitude(s) for loop diagram number 4
98
CALL MP_FFV2_0(W(1,6),W(1,2),W(1,7),R2_SXCW,AMPL(1,2))
98
CALL MP_FFV2_0(W(1,6),W(1,2),W(1,7),R2_BXTW,AMPL(1,2))
99
99
C Counter-term amplitude(s) for loop diagram number 5
100
CALL MP_FFV2_0(W(1,1),W(1,8),W(1,7),R2_SXCW,AMPL(1,3))
100
CALL MP_FFV2_0(W(1,1),W(1,8),W(1,7),R2_BXTW,AMPL(1,3))
101
101
C Counter-term amplitude(s) for loop diagram number 7
102
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,4))
103
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,5))
104
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,6))
105
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,7))
102
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,4))
103
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,5))
104
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,6))
105
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,7))
106
106
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB,AMPL(1,8))
107
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,9))
107
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,9))
108
108
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQT,AMPL(1,10))
109
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQQ_1EPS,AMPL(2,11))
109
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQB_1EPS,AMPL(2,11))
110
110
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),UV_GQQG_1EPS,AMPL(2,12))
111
111
CALL MP_FFV1_0(W(1,1),W(1,9),W(1,5),R2_GQQ,AMPL(1,13))
112
CALL MP_FFV2_2(W(1,1),W(1,7),GC_47,ZERO,ZERO,W(1,10))
112
CALL MP_FFV2_2(W(1,1),W(1,7),GC_11,ZERO,ZERO,W(1,10))
113
113
C Counter-term amplitude(s) for loop diagram number 11
114
114
CALL MP_R2_QQ_1_0(W(1,10),W(1,8),R2_QQQ,AMPL(1,14))
115
115
C Counter-term amplitude(s) for loop diagram number 12
116
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,15))
117
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,16))
118
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,17))
119
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,18))
116
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,15))
117
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,16))
118
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,17))
119
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,18))
120
120
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB,AMPL(1,19))
121
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,20))
121
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,20))
122
122
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQT,AMPL(1,21))
123
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQQ_1EPS,AMPL(2,22))
123
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQB_1EPS,AMPL(2,22))
124
124
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),UV_GQQG_1EPS,AMPL(2,23))
125
125
CALL MP_FFV1_0(W(1,10),W(1,2),W(1,5),R2_GQQ,AMPL(1,24))