← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2020-08-21 09:16:56 UTC
  • mfrom: (284.2.24 python3)
  • Revision ID: olivier-mattelaer-20200821091656-iizux2mj94tkssuo
pass to 2.8.0 (and move to python3 branch)

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/coef_construction_1.f
162
162
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,22))
163
163
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,4,1,1,263,H)
164
164
C     Coefficient construction for loop diagram with ID 20
165
 
      CALL FFV2L1_2(PL(0,0),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,23),COEFS)
 
165
      CALL FFV2L1_2(PL(0,0),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,23),COEFS)
166
166
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,23))
167
167
      CALL FFV1L1P0_3(PL(0,23),W(1,4),GC_5,ZERO,ZERO,PL(0,24),COEFS)
168
168
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,24))
176
176
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,27))
177
177
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,27),3,4,8,1,1,265,H)
178
178
C     Coefficient construction for loop diagram with ID 22
179
 
      CALL FFV2L2_1(PL(0,0),W(1,3),GC_47,MDL_MB,ZERO,PL(0,28),COEFS)
 
179
      CALL FFV2L2_1(PL(0,0),W(1,3),GC_11,MDL_MB,ZERO,PL(0,28),COEFS)
180
180
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,28))
181
181
      CALL FFV1L2P0_3(PL(0,28),W(1,5),GC_5,ZERO,ZERO,PL(0,29),COEFS)
182
182
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,28),4,COEFS,4,4,WL(1,0,1,29))
218
218
C     Coefficient construction for loop diagram with ID 28
219
219
      CALL FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,42),COEFS)
220
220
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,42))
221
 
      CALL FFV2L1_2(PL(0,42),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,43),COEFS)
 
221
      CALL FFV2L1_2(PL(0,42),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,43),COEFS)
222
222
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1,43))
223
223
      CALL FFV1L1P0_3(PL(0,43),W(1,9),GC_5,ZERO,ZERO,PL(0,44),COEFS)
224
224
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,44))
234
234
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,47))
235
235
      CALL FFV1L3_2(PL(0,47),W(1,5),GC_5,MDL_MB,ZERO,PL(0,48),COEFS)
236
236
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,48))
237
 
      CALL FFV2L1_2(PL(0,48),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,49),COEFS)
 
237
      CALL FFV2L1_2(PL(0,48),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,49),COEFS)
238
238
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,49))
239
239
      CALL FFV1L1P0_3(PL(0,49),W(1,9),GC_5,ZERO,ZERO,PL(0,50),COEFS)
240
240
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,49),4,COEFS,4,4,WL(1,0,1,50))
242
242
C     Coefficient construction for loop diagram with ID 31
243
243
      CALL FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,51),COEFS)
244
244
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,51))
245
 
      CALL FFV2L2_1(PL(0,51),W(1,3),GC_47,MDL_MB,ZERO,PL(0,52),COEFS)
 
245
      CALL FFV2L2_1(PL(0,51),W(1,3),GC_11,MDL_MB,ZERO,PL(0,52),COEFS)
246
246
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1,52))
247
247
      CALL FFV1L2P0_3(PL(0,52),W(1,5),GC_5,ZERO,ZERO,PL(0,53),COEFS)
248
248
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,53))
304
304
C     Coefficient construction for loop diagram with ID 42
305
305
      CALL FFV1L3_1(PL(0,47),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,71),COEFS)
306
306
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,71))
307
 
      CALL FFV2L2_1(PL(0,71),W(1,3),GC_47,MDL_MB,ZERO,PL(0,72),COEFS)
 
307
      CALL FFV2L2_1(PL(0,71),W(1,3),GC_11,MDL_MB,ZERO,PL(0,72),COEFS)
308
308
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1,72))
309
309
      CALL FFV1L2P0_3(PL(0,72),W(1,11),GC_5,ZERO,ZERO,PL(0,73),COEFS)
310
310
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1,73))
320
320
C     Coefficient construction for loop diagram with ID 44
321
321
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,77),COEFS)
322
322
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,77))
323
 
      CALL FFV2L1_2(PL(0,77),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,78),COEFS)
 
323
      CALL FFV2L1_2(PL(0,77),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,78),COEFS)
324
324
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,78))
325
325
      CALL FFV1L1P0_3(PL(0,78),W(1,12),GC_5,ZERO,ZERO,PL(0,79),COEFS)
326
326
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,79))
342
342
C     Coefficient construction for loop diagram with ID 47
343
343
      CALL FFV1L1_2(PL(0,77),W(1,2),GC_5,MDL_MB,ZERO,PL(0,85),COEFS)
344
344
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,85))
345
 
      CALL FFV2L1_2(PL(0,85),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,86),COEFS)
 
345
      CALL FFV2L1_2(PL(0,85),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,86),COEFS)
346
346
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,86))
347
347
      CALL FFV1L1P0_3(PL(0,86),W(1,4),GC_5,ZERO,ZERO,PL(0,87),COEFS)
348
348
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,87))
392
392
C     Coefficient construction for loop diagram with ID 56
393
393
      CALL FFV1L3_1(PL(0,95),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,101),COEFS)
394
394
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1,101))
395
 
      CALL FFV2L2_1(PL(0,101),W(1,3),GC_47,MDL_MB,ZERO,PL(0,102),COEFS)
 
395
      CALL FFV2L2_1(PL(0,101),W(1,3),GC_11,MDL_MB,ZERO,PL(0,102),COEFS)
396
396
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,101),4,COEFS,4,4,WL(1,0,1,102))
397
397
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,102),4,4,35,1,1,300,H)
398
398
C     Coefficient construction for loop diagram with ID 57
417
417
C     Coefficient construction for loop diagram with ID 60
418
418
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,109),COEFS)
419
419
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,109))
420
 
      CALL FFV2L2_1(PL(0,109),W(1,3),GC_47,MDL_MB,ZERO,PL(0,110),COEFS)
 
420
      CALL FFV2L2_1(PL(0,109),W(1,3),GC_11,MDL_MB,ZERO,PL(0,110),COEFS)
421
421
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1,110))
422
422
      CALL FFV1L2P0_3(PL(0,110),W(1,5),GC_5,ZERO,ZERO,PL(0,111),COEFS)
423
423
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1,111))
430
430
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,113))
431
431
      CALL FFV1L3_2(PL(0,113),W(1,5),GC_5,MDL_MB,ZERO,PL(0,114),COEFS)
432
432
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,114))
433
 
      CALL FFV2L1_2(PL(0,114),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,115)
 
433
      CALL FFV2L1_2(PL(0,114),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,115)
434
434
     $ ,COEFS)
435
435
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,115))
436
436
      CALL FFV1L1P0_3(PL(0,115),W(1,12),GC_5,ZERO,ZERO,PL(0,116),COEFS)
469
469
      CALL FFV1L3_1(PL(0,113),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,125)
470
470
     $ ,COEFS)
471
471
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,125))
472
 
      CALL FFV2L2_1(PL(0,125),W(1,3),GC_47,MDL_MB,ZERO,PL(0,126),COEFS)
 
472
      CALL FFV2L2_1(PL(0,125),W(1,3),GC_11,MDL_MB,ZERO,PL(0,126),COEFS)
473
473
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,126))
474
474
      CALL FFV1L2P0_3(PL(0,126),W(1,10),GC_5,ZERO,ZERO,PL(0,127),COEFS)
475
475
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1,127))
557
557
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1,153))
558
558
      CALL FFV1L3_2(PL(0,153),W(1,5),GC_5,MDL_MB,ZERO,PL(0,154),COEFS)
559
559
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1,154))
560
 
      CALL FFV2L1_2(PL(0,154),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,155)
 
560
      CALL FFV2L1_2(PL(0,154),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,155)
561
561
     $ ,COEFS)
562
562
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,154),4,COEFS,4,4,WL(1,0,1,155))
563
563
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,155),4,4,50,1,1,325,H)
565
565
      CALL FFV1L2_1(PL(0,125),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,156)
566
566
     $ ,COEFS)
567
567
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,156))
568
 
      CALL FFV2L2_1(PL(0,156),W(1,3),GC_47,MDL_MB,ZERO,PL(0,157),COEFS)
 
568
      CALL FFV2L2_1(PL(0,156),W(1,3),GC_11,MDL_MB,ZERO,PL(0,157),COEFS)
569
569
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1,157))
570
570
      CALL FFV1L2P0_3(PL(0,157),W(1,5),GC_5,ZERO,ZERO,PL(0,158),COEFS)
571
571
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,157),4,COEFS,4,4,WL(1,0,1,158))
574
574
      CALL FFV1L3_1(PL(0,138),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,159)
575
575
     $ ,COEFS)
576
576
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,159))
577
 
      CALL FFV2L2_1(PL(0,159),W(1,3),GC_47,MDL_MB,ZERO,PL(0,160),COEFS)
 
577
      CALL FFV2L2_1(PL(0,159),W(1,3),GC_11,MDL_MB,ZERO,PL(0,160),COEFS)
578
578
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1,160))
579
579
      CALL FFV1L2P0_3(PL(0,160),W(1,5),GC_5,ZERO,ZERO,PL(0,161),COEFS)
580
580
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,160),4,COEFS,4,4,WL(1,0,1,161))
583
583
      CALL FFV1L2_1(PL(0,109),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,162)
584
584
     $ ,COEFS)
585
585
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1,162))
586
 
      CALL FFV2L2_1(PL(0,162),W(1,3),GC_47,MDL_MB,ZERO,PL(0,163),COEFS)
 
586
      CALL FFV2L2_1(PL(0,162),W(1,3),GC_11,MDL_MB,ZERO,PL(0,163),COEFS)
587
587
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1,163))
588
588
      CALL FFV1L2P0_3(PL(0,163),W(1,5),GC_5,ZERO,ZERO,PL(0,164),COEFS)
589
589
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,163),4,COEFS,4,4,WL(1,0,1,164))
592
592
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,164),4,COEFS,4,4,WL(1,0,1,165))
593
593
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,165),4,4,53,1,1,328,H)
594
594
C     Coefficient construction for loop diagram with ID 83
595
 
      CALL FFV2L1_2(PL(0,141),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,166)
 
595
      CALL FFV2L1_2(PL(0,141),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,166)
596
596
     $ ,COEFS)
597
597
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,141),4,COEFS,4,4,WL(1,0,1,166))
598
598
      CALL FFV1L1P0_3(PL(0,166),W(1,4),GC_5,ZERO,ZERO,PL(0,167),COEFS)