← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2_eft_running

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2020-04-07 08:32:56 UTC
  • Revision ID: olivier-mattelaer-20200407083256-9bekro6kplfwe22m
initial conversion

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/helas_calls_uvct_1.f
96
96
      ENDIF
97
97
 
98
98
C     Amplitude(s) for UVCT diagram with ID 135
99
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(1,237))
100
 
      AMPL(1,237)=AMPL(1,237)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
101
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
99
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(2,237))
 
100
      AMPL(2,237)=AMPL(2,237)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
101
     $ *UVWFCT_G_1_1EPS)
102
102
C     Amplitude(s) for UVCT diagram with ID 136
103
 
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(2,238))
104
 
      AMPL(2,238)=AMPL(2,238)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
105
 
     $ *UVWFCT_G_2_1EPS)
 
103
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(1,238))
 
104
      AMPL(1,238)=AMPL(1,238)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
105
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
106
106
C     Amplitude(s) for UVCT diagram with ID 137
107
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(1,239))
108
 
      AMPL(1,239)=AMPL(1,239)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
109
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
107
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(2,239))
 
108
      AMPL(2,239)=AMPL(2,239)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
109
     $ *UVWFCT_G_1_1EPS)
110
110
C     Amplitude(s) for UVCT diagram with ID 138
111
 
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(2,240))
112
 
      AMPL(2,240)=AMPL(2,240)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
113
 
     $ *UVWFCT_G_2_1EPS)
 
111
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(1,240))
 
112
      AMPL(1,240)=AMPL(1,240)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
113
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
114
114
C     Amplitude(s) for UVCT diagram with ID 139
115
 
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(1,241))
116
 
      AMPL(1,241)=AMPL(1,241)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
117
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
115
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_11,AMPL(2,241))
 
116
      AMPL(2,241)=AMPL(2,241)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
117
     $ *UVWFCT_G_1_1EPS)
118
118
C     Amplitude(s) for UVCT diagram with ID 140
119
 
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(2,242))
120
 
      AMPL(2,242)=AMPL(2,242)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
121
 
     $ *UVWFCT_G_2_1EPS)
 
119
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_11,AMPL(1,242))
 
120
      AMPL(1,242)=AMPL(1,242)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
121
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
122
122
C     Amplitude(s) for UVCT diagram with ID 141
123
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(1,243))
124
 
      AMPL(1,243)=AMPL(1,243)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
125
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
123
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(2,243))
 
124
      AMPL(2,243)=AMPL(2,243)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
125
     $ *UVWFCT_G_1_1EPS)
126
126
C     Amplitude(s) for UVCT diagram with ID 142
127
 
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(2,244))
128
 
      AMPL(2,244)=AMPL(2,244)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
129
 
     $ *UVWFCT_G_2_1EPS)
 
127
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(1,244))
 
128
      AMPL(1,244)=AMPL(1,244)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
129
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
130
130
C     Amplitude(s) for UVCT diagram with ID 143
131
 
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(1,245))
132
 
      AMPL(1,245)=AMPL(1,245)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
133
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
131
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_11,AMPL(2,245))
 
132
      AMPL(2,245)=AMPL(2,245)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
133
     $ *UVWFCT_G_1_1EPS)
134
134
C     Amplitude(s) for UVCT diagram with ID 144
135
 
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(2,246))
136
 
      AMPL(2,246)=AMPL(2,246)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
137
 
     $ *UVWFCT_G_2_1EPS)
 
135
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_11,AMPL(1,246))
 
136
      AMPL(1,246)=AMPL(1,246)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
137
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
138
138
C     Amplitude(s) for UVCT diagram with ID 145
139
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(1,247))
140
 
      AMPL(1,247)=AMPL(1,247)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
141
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
139
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(2,247))
 
140
      AMPL(2,247)=AMPL(2,247)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
141
     $ *UVWFCT_G_1_1EPS)
142
142
C     Amplitude(s) for UVCT diagram with ID 146
143
 
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(2,248))
144
 
      AMPL(2,248)=AMPL(2,248)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
145
 
     $ *UVWFCT_G_2_1EPS)
 
143
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(1,248))
 
144
      AMPL(1,248)=AMPL(1,248)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
145
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
146
146
C     Amplitude(s) for UVCT diagram with ID 147
147
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(1,249))
148
 
      AMPL(1,249)=AMPL(1,249)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
149
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
147
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(2,249))
 
148
      AMPL(2,249)=AMPL(2,249)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
149
     $ *UVWFCT_G_1_1EPS)
150
150
C     Amplitude(s) for UVCT diagram with ID 148
151
 
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(2,250))
152
 
      AMPL(2,250)=AMPL(2,250)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
153
 
     $ *UVWFCT_G_2_1EPS)
 
151
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(1,250))
 
152
      AMPL(1,250)=AMPL(1,250)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
153
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
154
154
C     Amplitude(s) for UVCT diagram with ID 149
155
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(1,251))
156
 
      AMPL(1,251)=AMPL(1,251)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1+1.0D0
157
 
     $ *UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
155
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(2,251))
 
156
      AMPL(2,251)=AMPL(2,251)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
 
157
     $ *UVWFCT_G_1_1EPS)
158
158
C     Amplitude(s) for UVCT diagram with ID 150
159
 
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(2,252))
160
 
      AMPL(2,252)=AMPL(2,252)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
161
 
     $ *UVWFCT_G_2_1EPS)
 
159
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(1,252))
 
160
      AMPL(1,252)=AMPL(1,252)*(1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2+1.0D0
 
161
     $ *UVWFCT_B_0+2.0D0*UVWFCT_G_1)
162
162
 
163
163
      GOTO 1001
164
164
 3000 CONTINUE