82
82
C Amplitude(s) for UVCT diagram with ID 13
83
CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(1,28))
84
AMPL(1,28)=AMPL(1,28)*(2.0D0*UVWFCT_T_0)
83
CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(2,28))
84
AMPL(2,28)=AMPL(2,28)*(2.0D0*UVWFCT_B_0_1EPS)
85
85
C Amplitude(s) for UVCT diagram with ID 14
86
CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(2,29))
87
AMPL(2,29)=AMPL(2,29)*(2.0D0*UVWFCT_B_0_1EPS)
86
CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(1,29))
87
AMPL(1,29)=AMPL(1,29)*(2.0D0*UVWFCT_T_0)