← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/mp_coef_construction_1.f

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/mp_coef_construction_1.f
13
13
      INTEGER NBORNAMPS
14
14
      PARAMETER (NBORNAMPS=3)
15
15
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
16
 
      PARAMETER (NLOOPS=44, NLOOPGROUPS=26, NCTAMPS=85)
 
16
      PARAMETER (NLOOPS=44, NLOOPGROUPS=28, NCTAMPS=85)
17
17
      INTEGER    NLOOPAMPS
18
18
      PARAMETER (NLOOPAMPS=129)
19
19
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
326
326
      CALL MP_VVV1L2P0_1(PL(0,59),W(1,8),GC_4,ZERO,ZERO,PL(0,62),COEFS)
327
327
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,59),4,COEFS,4,4,WL(1,0,1,62)
328
328
     $ )
329
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,60),1,4,1,2,1,112,H)
330
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),1,4,1,2,1,113,H)
331
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,62),1,4,1,2,1,114,H)
 
329
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,60),1,4,23,2,1,112,H)
 
330
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),1,4,23,2,1,113,H)
 
331
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,62),1,4,23,2,1,114,H)
332
332
C     Coefficient construction for loop diagram with ID 27
333
333
      CALL MP_VVVV1L2P0_1(PL(0,4),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,63)
334
334
     $ ,COEFS)
339
339
      CALL MP_VVVV4L2P0_1(PL(0,4),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,65)
340
340
     $ ,COEFS)
341
341
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,4),4,COEFS,4,4,WL(1,0,1,65))
342
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),1,4,2,1,1,115,H)
343
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),1,4,2,1,1,116,H)
344
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,2,1,1,117,H)
 
342
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),1,4,24,1,1,115,H)
 
343
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),1,4,24,1,1,116,H)
 
344
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,24,1,1,117,H)
345
345
C     Coefficient construction for loop diagram with ID 28
346
346
      CALL MP_GHGHGL2_1(PL(0,0),W(1,5),GC_4,ZERO,ZERO,PL(0,66),COEFS)
347
347
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,66))
402
402
      CALL MP_FFV1L2_1(PL(0,82),W(1,8),GC_5,MDL_MB,ZERO,PL(0,83),COEFS)
403
403
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,82),4,COEFS,4,4,WL(1,0,1,83)
404
404
     $ )
405
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,83),2,4,23,1,1,124,H)
 
405
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,83),2,4,25,1,1,124,H)
406
406
C     Coefficient construction for loop diagram with ID 35
407
407
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,84),COEFS)
408
408
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,84))
412
412
      CALL MP_FFV1L1_2(PL(0,85),W(1,8),GC_5,MDL_MB,ZERO,PL(0,86),COEFS)
413
413
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,86)
414
414
     $ )
415
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,86),3,4,24,1,1,125,H)
 
415
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,86),3,4,26,1,1,125,H)
416
416
C     Coefficient construction for loop diagram with ID 36
417
417
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,87),COEFS)
418
418
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,87))
422
422
      CALL MP_FFV1L2_1(PL(0,88),W(1,8),GC_5,MDL_MB,ZERO,PL(0,89),COEFS)
423
423
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,88),4,COEFS,4,4,WL(1,0,1,89)
424
424
     $ )
425
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,24,1,1,126,H)
 
425
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,26,1,1,126,H)
426
426
C     Coefficient construction for loop diagram with ID 37
427
427
      CALL MP_FFV1L2_1(PL(0,0),W(1,5),GC_5,MDL_MT,MDL_WT,PL(0,90)
428
428
     $ ,COEFS)
431
431
     $ ,COEFS)
432
432
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,90),4,COEFS,4,4,WL(1,0,1,91)
433
433
     $ )
434
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),2,4,25,1,1,127,H)
 
434
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),2,4,27,1,1,127,H)
435
435
C     Coefficient construction for loop diagram with ID 38
436
436
      CALL MP_FFV1L1_2(PL(0,54),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,92)
437
437
     $ ,COEFS)
438
438
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,54),4,COEFS,4,4,WL(1,0,1,92)
439
439
     $ )
440
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),3,4,26,1,1,128,H)
 
440
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),3,4,28,1,1,128,H)
441
441
C     Coefficient construction for loop diagram with ID 39
442
442
      CALL MP_FFV1L2_1(PL(0,51),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,93)
443
443
     $ ,COEFS)
444
444
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1,93)
445
445
     $ )
446
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,93),3,4,26,1,1,129,H)
 
446
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,93),3,4,28,1,1,129,H)
447
447
 
448
448
      GOTO 1001
449
449
 4000 CONTINUE