← 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_default/ddx_ttx/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_default/ddx_ttx/loop_num.f
133
133
C       Loop diagram number 2 (might be others, just an example)
134
134
        DO I=1,4
135
135
          CALL LCUT_V(Q(0),I,WL(1,2))
136
 
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
137
 
          CALL VVV1LP0_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
 
136
 
 
137
 
138
138
          BUFF(I)=WL(I+4,4)
139
139
        ENDDO
140
140
        CALL CLOSE_4(BUFF(1),RES)
142
142
C       Loop diagram number 3 (might be others, just an example)
143
143
        DO I=1,4
144
144
          CALL LCUT_V(Q(0),I,WL(1,2))
145
 
          CALL FFV1L_1(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
146
 
          CALL FFV1LP0_3(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1,4))
147
 
          CALL VVV1LP0_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5))
 
145
 
 
146
 
 
147
 
148
148
          BUFF(I)=WL(I+4,5)
149
149
        ENDDO
150
150
        CALL CLOSE_4(BUFF(1),RES)
152
152
C       Loop diagram number 4 (might be others, just an example)
153
153
        DO I=1,4
154
154
          CALL LCUT_AF(Q(0),I,WL(1,2))
155
 
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
156
 
          CALL FFV1L_2(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1,4))
157
 
          CALL FFV1L_2(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5))
 
155
 
 
156
 
 
157
 
158
158
          BUFF(I)=WL(I+4,5)
159
159
        ENDDO
160
160
        CALL CLOSE_4(BUFF(1),RES)
162
162
C       Loop diagram number 5 (might be others, just an example)
163
163
        DO I=1,4
164
164
          CALL LCUT_F(Q(0),I,WL(1,2))
165
 
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
166
 
          CALL FFV1L_1(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1,4))
167
 
          CALL FFV1L_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5))
 
165
 
 
166
 
 
167
 
168
168
          BUFF(I)=WL(I+4,5)
169
169
        ENDDO
170
170
        CALL CLOSE_4(BUFF(1),RES)
172
172
C       Loop diagram number 6 (might be others, just an example)
173
173
        DO I=1,4
174
174
          CALL LCUT_V(Q(0),I,WL(1,2))
175
 
          CALL FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
176
 
          CALL FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
177
 
          CALL VVV1LP0_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5))
 
175
 
 
176
 
 
177
 
178
178
          BUFF(I)=WL(I+4,5)
179
179
        ENDDO
180
180
        CALL CLOSE_4(BUFF(1),RES)
182
182
C       Loop diagram number 7 (might be others, just an example)
183
183
        DO I=1,4
184
184
          CALL LCUT_V(Q(0),I,WL(1,2))
185
 
          CALL FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
186
 
          CALL FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
187
 
          CALL FFV1L_2(W(1,WE(3),H),WL(1,4),LC(3),ML(5),ZERO,WL(1,5))
188
 
          CALL FFV1LP0_3(WL(1,5),W(1,WE(4),H),LC(4),ML(6),ZERO,WL(1,6))
 
185
 
 
186
 
 
187
 
 
188
 
189
189
          BUFF(I)=WL(I+4,6)
190
190
        ENDDO
191
191
        CALL CLOSE_4(BUFF(1),RES)
193
193
C       Loop diagram number 8 (might be others, just an example)
194
194
        DO I=1,4
195
195
          CALL LCUT_V(Q(0),I,WL(1,2))
196
 
          CALL FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
197
 
          CALL FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
198
 
          CALL FFV1L_1(W(1,WE(3),H),WL(1,4),LC(3),ML(5),ZERO,WL(1,5))
199
 
          CALL FFV1LP0_3(W(1,WE(4),H),WL(1,5),LC(4),ML(6),ZERO,WL(1,6))
 
196
 
 
197
 
 
198
 
 
199
 
200
200
          BUFF(I)=WL(I+4,6)
201
201
        ENDDO
202
202
        CALL CLOSE_4(BUFF(1),RES)
204
204
C       Loop diagram number 9 (might be others, just an example)
205
205
        DO I=1,1
206
206
          CALL LCUT_S(Q(0),I,WL(1,2))
207
 
          CALL GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
208
 
          CALL GHGHGL_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
 
207
 
 
208
 
209
209
          BUFF(I)=WL(I+4,4)
210
210
        ENDDO
211
211
        CALL CLOSE_1(BUFF(1),RES)
213
213
C       Loop diagram number 10 (might be others, just an example)
214
214
        DO I=1,4
215
215
          CALL LCUT_F(Q(0),I,WL(1,2))
216
 
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
217
 
          CALL FFV1L_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4))
 
216
 
 
217
 
218
218
          BUFF(I)=WL(I+4,4)
219
219
        ENDDO
220
220
        CALL CLOSE_4(BUFF(1),RES)
382
382
C       Loop diagram number 2 (might be others, just an example)
383
383
        DO I=1,4
384
384
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
385
 
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
386
 
     $     ,3))
387
 
          CALL MP_VVV1LP0_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1
388
 
     $     ,4))
 
385
 
 
386
 
389
387
          BUFF(I)=WL(I+4,4)
390
388
        ENDDO
391
389
        CALL MP_CLOSE_4(BUFF(1),RES)
393
391
C       Loop diagram number 3 (might be others, just an example)
394
392
        DO I=1,4
395
393
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
396
 
          CALL MP_FFV1L_1(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3)
397
 
     $     )
398
 
          CALL MP_FFV1LP0_3(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1
399
 
     $     ,4))
400
 
          CALL MP_VVV1LP0_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1
401
 
     $     ,5))
 
394
 
 
395
 
 
396
 
402
397
          BUFF(I)=WL(I+4,5)
403
398
        ENDDO
404
399
        CALL MP_CLOSE_4(BUFF(1),RES)
406
401
C       Loop diagram number 4 (might be others, just an example)
407
402
        DO I=1,4
408
403
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
409
 
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
410
 
     $     ,3))
411
 
          CALL MP_FFV1L_2(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1,4)
412
 
     $     )
413
 
          CALL MP_FFV1L_2(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5)
414
 
     $     )
 
404
 
 
405
 
 
406
 
415
407
          BUFF(I)=WL(I+4,5)
416
408
        ENDDO
417
409
        CALL MP_CLOSE_4(BUFF(1),RES)
419
411
C       Loop diagram number 5 (might be others, just an example)
420
412
        DO I=1,4
421
413
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
422
 
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
423
 
     $     ,3))
424
 
          CALL MP_FFV1L_1(W(1,WE(2),H),WL(1,3),LC(2),ML(4),ZERO,WL(1,4)
425
 
     $     )
426
 
          CALL MP_FFV1L_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1,5)
427
 
     $     )
 
414
 
 
415
 
 
416
 
428
417
          BUFF(I)=WL(I+4,5)
429
418
        ENDDO
430
419
        CALL MP_CLOSE_4(BUFF(1),RES)
432
421
C       Loop diagram number 6 (might be others, just an example)
433
422
        DO I=1,4
434
423
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
435
 
          CALL MP_FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3)
436
 
     $     )
437
 
          CALL MP_FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1
438
 
     $     ,4))
439
 
          CALL MP_VVV1LP0_1(WL(1,4),W(1,WE(3),H),LC(3),ML(5),ZERO,WL(1
440
 
     $     ,5))
 
424
 
 
425
 
 
426
 
441
427
          BUFF(I)=WL(I+4,5)
442
428
        ENDDO
443
429
        CALL MP_CLOSE_4(BUFF(1),RES)
445
431
C       Loop diagram number 7 (might be others, just an example)
446
432
        DO I=1,4
447
433
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
448
 
          CALL MP_FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3)
449
 
     $     )
450
 
          CALL MP_FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1
451
 
     $     ,4))
452
 
          CALL MP_FFV1L_2(W(1,WE(3),H),WL(1,4),LC(3),ML(5),ZERO,WL(1,5)
453
 
     $     )
454
 
          CALL MP_FFV1LP0_3(WL(1,5),W(1,WE(4),H),LC(4),ML(6),ZERO,WL(1
455
 
     $     ,6))
 
434
 
 
435
 
 
436
 
 
437
 
456
438
          BUFF(I)=WL(I+4,6)
457
439
        ENDDO
458
440
        CALL MP_CLOSE_4(BUFF(1),RES)
460
442
C       Loop diagram number 8 (might be others, just an example)
461
443
        DO I=1,4
462
444
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
463
 
          CALL MP_FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3)
464
 
     $     )
465
 
          CALL MP_FFV1LP0_3(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1
466
 
     $     ,4))
467
 
          CALL MP_FFV1L_1(W(1,WE(3),H),WL(1,4),LC(3),ML(5),ZERO,WL(1,5)
468
 
     $     )
469
 
          CALL MP_FFV1LP0_3(W(1,WE(4),H),WL(1,5),LC(4),ML(6),ZERO,WL(1
470
 
     $     ,6))
 
445
 
 
446
 
 
447
 
 
448
 
471
449
          BUFF(I)=WL(I+4,6)
472
450
        ENDDO
473
451
        CALL MP_CLOSE_4(BUFF(1),RES)
475
453
C       Loop diagram number 9 (might be others, just an example)
476
454
        DO I=1,1
477
455
          CALL MP_LCUT_S(Q(0),I,WL(1,2))
478
 
          CALL MP_GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
479
 
     $     ,3))
480
 
          CALL MP_GHGHGL_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1
481
 
     $     ,4))
 
456
 
 
457
 
482
458
          BUFF(I)=WL(I+4,4)
483
459
        ENDDO
484
460
        CALL MP_CLOSE_1(BUFF(1),RES)
486
462
C       Loop diagram number 10 (might be others, just an example)
487
463
        DO I=1,4
488
464
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
489
 
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3)
490
 
     $     )
491
 
          CALL MP_FFV1L_1(WL(1,3),W(1,WE(2),H),LC(2),ML(4),ZERO,WL(1,4)
492
 
     $     )
 
465
 
 
466
 
493
467
          BUFF(I)=WL(I+4,4)
494
468
        ENDDO
495
469
        CALL MP_CLOSE_4(BUFF(1),RES)