← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%mp_helas_calls_uvct_1.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%mp_helas_calls_uvct_1.f
80
80
      ENDIF
81
81
 
82
82
C     Amplitude(s) for UVCT diagram with ID 40
83
 
      CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(1,80))
84
 
      AMPL(1,80)=AMPL(1,80)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+2.0D0
85
 
     $ *UVWFCT_T_0)
 
83
      CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(2,80))
 
84
      AMPL(2,80)=AMPL(2,80)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
85
     $ *UVWFCT_B_0_1EPS)
86
86
C     Amplitude(s) for UVCT diagram with ID 41
87
 
      CALL MP_FFV1_0(W(1,4),W(1,3),W(1,5),GC_5,AMPL(2,81))
88
 
      AMPL(2,81)=AMPL(2,81)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
89
 
     $ *UVWFCT_G_1_1EPS)
 
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
 
89
     $ *UVWFCT_G_1)
90
90
C     Amplitude(s) for UVCT diagram with ID 42
91
 
      CALL MP_FFV1_0(W(1,4),W(1,6),W(1,2),GC_5,AMPL(1,82))
92
 
      AMPL(1,82)=AMPL(1,82)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+2.0D0
93
 
     $ *UVWFCT_T_0)
 
91
      CALL MP_FFV1_0(W(1,4),W(1,6),W(1,2),GC_5,AMPL(2,82))
 
92
      AMPL(2,82)=AMPL(2,82)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
93
     $ *UVWFCT_B_0_1EPS)
94
94
C     Amplitude(s) for UVCT diagram with ID 43
95
 
      CALL MP_FFV1_0(W(1,4),W(1,6),W(1,2),GC_5,AMPL(2,83))
96
 
      AMPL(2,83)=AMPL(2,83)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
97
 
     $ *UVWFCT_G_1_1EPS)
 
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
 
97
     $ *UVWFCT_G_1)
98
98
C     Amplitude(s) for UVCT diagram with ID 44
99
 
      CALL MP_FFV1_0(W(1,7),W(1,3),W(1,2),GC_5,AMPL(1,84))
100
 
      AMPL(1,84)=AMPL(1,84)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+2.0D0
101
 
     $ *UVWFCT_T_0)
 
99
      CALL MP_FFV1_0(W(1,7),W(1,3),W(1,2),GC_5,AMPL(2,84))
 
100
      AMPL(2,84)=AMPL(2,84)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
101
     $ *UVWFCT_B_0_1EPS)
102
102
C     Amplitude(s) for UVCT diagram with ID 45
103
 
      CALL MP_FFV1_0(W(1,7),W(1,3),W(1,2),GC_5,AMPL(2,85))
104
 
      AMPL(2,85)=AMPL(2,85)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
105
 
     $ *UVWFCT_G_1_1EPS)
 
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
 
105
     $ *UVWFCT_G_1)
106
106
C     At this point, all UVCT amps needed for (QCD=6), i.e. of split
107
107
C      order ID=1, are computed.
108
108
      IF(FILTER_SO.AND.SQSO_TARGET.EQ.1) GOTO 3000