248
248
CALL IXXXXX(P(0,4),ZERO,NHEL(4),-1*IC(4),W(1,4))
249
249
CALL VXXXXX(P(0,5),ZERO,NHEL(5),+1*IC(5),W(1,5))
250
250
CALL FFV1_2(W(1,1),W(1,5),GC_5,ZERO,ZERO,W(1,6))
251
CALL FFV2_3(W(1,4),W(1,3),GC_47,MDL_MW,MDL_WW,W(1,7))
251
CALL FFV2_3(W(1,4),W(1,3),GC_11,MDL_MW,MDL_WW,W(1,7))
252
252
C Amplitude(s) for diagram number 1
253
CALL FFV2_0(W(1,6),W(1,2),W(1,7),GC_47,AMP(1))
253
CALL FFV2_0(W(1,6),W(1,2),W(1,7),GC_11,AMP(1))
254
254
CALL FFV1_1(W(1,2),W(1,5),GC_5,ZERO,ZERO,W(1,6))
255
255
C Amplitude(s) for diagram number 2
256
CALL FFV2_0(W(1,1),W(1,6),W(1,7),GC_47,AMP(2))
256
CALL FFV2_0(W(1,1),W(1,6),W(1,7),GC_11,AMP(2))
257
257
JAMP(1)=-AMP(1)-AMP(2)
259
259
ML5_0_MATRIX = 0.D0