← Back to branch summary

~maddevelopers/mg5amcnlo/3.1.1_lo_vectorization

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_LoopInduced/gg_hh/loop_num.f

  • Committer: olivier-mattelaer
  • Date: 2022-05-20 18:53:15 UTC
  • Revision ID: olivier-mattelaer-20220520185315-5zvm5gdhs4qdcnyp
fix the creation of model for NLO mode

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_LoopInduced/gg_hh/loop_num.f
124
124
C       Loop diagram number 1 (might be others, just an example)
125
125
        DO I=1,4
126
126
          CALL LCUT_AF(Q(0),I,WL(1,2))
127
 
          CALL FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
128
 
          CALL FFV1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
129
 
          CALL FFS1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
130
 
          CALL FFS1L_2(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
127
 
 
128
 
 
129
 
 
130
 
131
131
          BUFF(I)=WL(I+4,6)
132
132
        ENDDO
133
133
        CALL CLOSE_4(BUFF(1),RES)
135
135
C       Loop diagram number 3 (might be others, just an example)
136
136
        DO I=1,4
137
137
          CALL LCUT_AF(Q(0),I,WL(1,2))
138
 
          CALL FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
139
 
          CALL FFV1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
140
 
          CALL FFS1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
 
138
 
 
139
 
 
140
 
141
141
          BUFF(I)=WL(I+4,5)
142
142
        ENDDO
143
143
        CALL CLOSE_4(BUFF(1),RES)
145
145
C       Loop diagram number 4 (might be others, just an example)
146
146
        DO I=1,4
147
147
          CALL LCUT_F(Q(0),I,WL(1,2))
148
 
          CALL FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
149
 
          CALL FFV1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
150
 
          CALL FFS1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
 
148
 
 
149
 
 
150
 
151
151
          BUFF(I)=WL(I+4,5)
152
152
        ENDDO
153
153
        CALL CLOSE_4(BUFF(1),RES)
155
155
C       Loop diagram number 5 (might be others, just an example)
156
156
        DO I=1,4
157
157
          CALL LCUT_F(Q(0),I,WL(1,2))
158
 
          CALL FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
159
 
          CALL FFV1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
160
 
          CALL FFS1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
161
 
          CALL FFS1L_1(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
158
 
 
159
 
 
160
 
 
161
 
162
162
          BUFF(I)=WL(I+4,6)
163
163
        ENDDO
164
164
        CALL CLOSE_4(BUFF(1),RES)
166
166
C       Loop diagram number 6 (might be others, just an example)
167
167
        DO I=1,4
168
168
          CALL LCUT_AF(Q(0),I,WL(1,2))
169
 
          CALL FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
170
 
          CALL FFS1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
171
 
          CALL FFV1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
172
 
          CALL FFS1L_2(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
169
 
 
170
 
 
171
 
 
172
 
173
173
          BUFF(I)=WL(I+4,6)
174
174
        ENDDO
175
175
        CALL CLOSE_4(BUFF(1),RES)
177
177
C       Loop diagram number 8 (might be others, just an example)
178
178
        DO I=1,4
179
179
          CALL LCUT_F(Q(0),I,WL(1,2))
180
 
          CALL FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
181
 
          CALL FFS1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
182
 
          CALL FFV1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
183
 
          CALL FFS1L_1(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
180
 
 
181
 
 
182
 
 
183
 
184
184
          BUFF(I)=WL(I+4,6)
185
185
        ENDDO
186
186
        CALL CLOSE_4(BUFF(1),RES)
339
339
C       Loop diagram number 1 (might be others, just an example)
340
340
        DO I=1,4
341
341
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
342
 
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
343
 
          CALL MP_FFV1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
344
 
          CALL MP_FFS1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
345
 
          CALL MP_FFS1L_2(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
342
 
 
343
 
 
344
 
 
345
 
346
346
          BUFF(I)=WL(I+4,6)
347
347
        ENDDO
348
348
        CALL MP_CLOSE_4(BUFF(1),RES)
350
350
C       Loop diagram number 3 (might be others, just an example)
351
351
        DO I=1,4
352
352
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
353
 
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
354
 
          CALL MP_FFV1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
355
 
          CALL MP_FFS1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
 
353
 
 
354
 
 
355
 
356
356
          BUFF(I)=WL(I+4,5)
357
357
        ENDDO
358
358
        CALL MP_CLOSE_4(BUFF(1),RES)
360
360
C       Loop diagram number 4 (might be others, just an example)
361
361
        DO I=1,4
362
362
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
363
 
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
364
 
          CALL MP_FFV1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
365
 
          CALL MP_FFS1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
 
363
 
 
364
 
 
365
 
366
366
          BUFF(I)=WL(I+4,5)
367
367
        ENDDO
368
368
        CALL MP_CLOSE_4(BUFF(1),RES)
370
370
C       Loop diagram number 5 (might be others, just an example)
371
371
        DO I=1,4
372
372
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
373
 
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
374
 
          CALL MP_FFV1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
375
 
          CALL MP_FFS1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
376
 
          CALL MP_FFS1L_1(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
373
 
 
374
 
 
375
 
 
376
 
377
377
          BUFF(I)=WL(I+4,6)
378
378
        ENDDO
379
379
        CALL MP_CLOSE_4(BUFF(1),RES)
381
381
C       Loop diagram number 6 (might be others, just an example)
382
382
        DO I=1,4
383
383
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
384
 
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
385
 
          CALL MP_FFS1L_2(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
386
 
          CALL MP_FFV1L_2(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
387
 
          CALL MP_FFS1L_2(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
384
 
 
385
 
 
386
 
 
387
 
388
388
          BUFF(I)=WL(I+4,6)
389
389
        ENDDO
390
390
        CALL MP_CLOSE_4(BUFF(1),RES)
392
392
C       Loop diagram number 8 (might be others, just an example)
393
393
        DO I=1,4
394
394
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
395
 
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1)),LC(1),ML(3),ZERO,WL(1,3))
396
 
          CALL MP_FFS1L_1(WL(1,3),W(1,WE(2)),LC(2),ML(4),ZERO,WL(1,4))
397
 
          CALL MP_FFV1L_1(WL(1,4),W(1,WE(3)),LC(3),ML(5),ZERO,WL(1,5))
398
 
          CALL MP_FFS1L_1(WL(1,5),W(1,WE(4)),LC(4),ML(6),ZERO,WL(1,6))
 
395
 
 
396
 
 
397
 
 
398
 
399
399
          BUFF(I)=WL(I+4,6)
400
400
        ENDDO
401
401
        CALL MP_CLOSE_4(BUFF(1),RES)