~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/mp_helas_calls_uvct_1.f

  • Committer: olivier-mattelaer
  • Date: 2021-05-31 14:46:34 UTC
  • mfrom: (965.1.13 3.1.1)
  • Revision ID: olivier-mattelaer-20210531144634-0qfepzcamyo7cy8u
pass to 3.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
85
85
     $ *UVWFCT_B_0_1EPS)
86
86
C     Amplitude(s) for UVCT diagram with ID 136
87
87
      CALL MP_FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(1,238))
88
 
      AMPL(1,238)=AMPL(1,238)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
89
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
88
      AMPL(1,238)=AMPL(1,238)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
89
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
90
90
C     Amplitude(s) for UVCT diagram with ID 137
91
91
      CALL MP_FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(2,239))
92
92
      AMPL(2,239)=AMPL(2,239)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
93
93
     $ *UVWFCT_B_0_1EPS)
94
94
C     Amplitude(s) for UVCT diagram with ID 138
95
95
      CALL MP_FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(1,240))
96
 
      AMPL(1,240)=AMPL(1,240)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
97
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
96
      AMPL(1,240)=AMPL(1,240)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
97
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
98
98
C     Amplitude(s) for UVCT diagram with ID 139
99
99
      CALL MP_FFV2_0(W(1,10),W(1,9),W(1,3),GC_11,AMPL(2,241))
100
100
      AMPL(2,241)=AMPL(2,241)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
101
101
     $ *UVWFCT_B_0_1EPS)
102
102
C     Amplitude(s) for UVCT diagram with ID 140
103
103
      CALL MP_FFV2_0(W(1,10),W(1,9),W(1,3),GC_11,AMPL(1,242))
104
 
      AMPL(1,242)=AMPL(1,242)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
105
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
104
      AMPL(1,242)=AMPL(1,242)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
105
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
106
106
C     Amplitude(s) for UVCT diagram with ID 141
107
107
      CALL MP_FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(2,243))
108
108
      AMPL(2,243)=AMPL(2,243)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
109
109
     $ *UVWFCT_B_0_1EPS)
110
110
C     Amplitude(s) for UVCT diagram with ID 142
111
111
      CALL MP_FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(1,244))
112
 
      AMPL(1,244)=AMPL(1,244)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
113
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
112
      AMPL(1,244)=AMPL(1,244)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
113
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
114
114
C     Amplitude(s) for UVCT diagram with ID 143
115
115
      CALL MP_FFV2_0(W(1,11),W(1,12),W(1,3),GC_11,AMPL(2,245))
116
116
      AMPL(2,245)=AMPL(2,245)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
117
117
     $ *UVWFCT_B_0_1EPS)
118
118
C     Amplitude(s) for UVCT diagram with ID 144
119
119
      CALL MP_FFV2_0(W(1,11),W(1,12),W(1,3),GC_11,AMPL(1,246))
120
 
      AMPL(1,246)=AMPL(1,246)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
121
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
120
      AMPL(1,246)=AMPL(1,246)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
121
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
122
122
C     Amplitude(s) for UVCT diagram with ID 145
123
123
      CALL MP_FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(2,247))
124
124
      AMPL(2,247)=AMPL(2,247)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
125
125
     $ *UVWFCT_B_0_1EPS)
126
126
C     Amplitude(s) for UVCT diagram with ID 146
127
127
      CALL MP_FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(1,248))
128
 
      AMPL(1,248)=AMPL(1,248)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
129
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
128
      AMPL(1,248)=AMPL(1,248)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
129
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
130
130
C     Amplitude(s) for UVCT diagram with ID 147
131
131
      CALL MP_FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(2,249))
132
132
      AMPL(2,249)=AMPL(2,249)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
133
133
     $ *UVWFCT_B_0_1EPS)
134
134
C     Amplitude(s) for UVCT diagram with ID 148
135
135
      CALL MP_FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(1,250))
136
 
      AMPL(1,250)=AMPL(1,250)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
137
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
136
      AMPL(1,250)=AMPL(1,250)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
137
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
138
138
C     Amplitude(s) for UVCT diagram with ID 149
139
139
      CALL MP_FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(2,251))
140
140
      AMPL(2,251)=AMPL(2,251)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
141
141
     $ *UVWFCT_B_0_1EPS)
142
142
C     Amplitude(s) for UVCT diagram with ID 150
143
143
      CALL MP_FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(1,252))
144
 
      AMPL(1,252)=AMPL(1,252)*(1.0D0*UVWFCT_B_0+1.0D0*UVWFCT_T_0+2.0D0
145
 
     $ *UVWFCT_G_1+2.0D0*UVWFCT_G_2)
 
144
      AMPL(1,252)=AMPL(1,252)*(2.0D0*UVWFCT_G_2+1.0D0*UVWFCT_T_0+1.0D0
 
145
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
146
146
 
147
147
      GOTO 1001
148
148
 3000 CONTINUE