85
85
$ *UVWFCT_B_0_1EPS)
86
86
C Amplitude(s) for UVCT diagram with ID 41
87
87
CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(1,81))
88
AMPL(1,81)=AMPL(1,81)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0+2.0D0
88
AMPL(1,81)=AMPL(1,81)*(2.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_1+2.0D0
90
90
C Amplitude(s) for UVCT diagram with ID 42
91
91
CALL MP_FFV1_0(W(1,4),W(1,6),W(1,2),GC_5,AMPL(2,82))
92
92
AMPL(2,82)=AMPL(2,82)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
93
93
$ *UVWFCT_B_0_1EPS)
94
94
C Amplitude(s) for UVCT diagram with ID 43
95
95
CALL MP_FFV1_0(W(1,4),W(1,6),W(1,2),GC_5,AMPL(1,83))
96
AMPL(1,83)=AMPL(1,83)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0+2.0D0
96
AMPL(1,83)=AMPL(1,83)*(2.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_1+2.0D0
98
98
C Amplitude(s) for UVCT diagram with ID 44
99
99
CALL MP_FFV1_0(W(1,7),W(1,3),W(1,2),GC_5,AMPL(2,84))
100
100
AMPL(2,84)=AMPL(2,84)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
101
101
$ *UVWFCT_B_0_1EPS)
102
102
C Amplitude(s) for UVCT diagram with ID 45
103
103
CALL MP_FFV1_0(W(1,7),W(1,3),W(1,2),GC_5,AMPL(1,85))
104
AMPL(1,85)=AMPL(1,85)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_T_0+2.0D0
104
AMPL(1,85)=AMPL(1,85)*(2.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_1+2.0D0