← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%TIR_interface.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%TIR_interface.f
53
53
      INTEGER LAST_LIB_USED
54
54
      DATA LAST_LIB_USED/-1/
55
55
 
56
 
      COMPLEX*16 TIRCOEFS(0:LOOPMAXCOEFS-1,3),TIRCOEFSERRORS(0:LOOPMAXC
57
 
     $OEFS-1,3)
 
56
      COMPLEX*16 TIRCOEFS(0:LOOPMAXCOEFS-1,3)
 
57
     $ ,TIRCOEFSERRORS(0:LOOPMAXCOEFS-1,3)
58
58
      COMPLEX*16 PJCOEFS(0:LOOPMAXCOEFS-1,3)
59
59
C     
60
60
C     EXTERNAL FUNCTIONS
402
402
C     
403
403
      INCLUDE 'MadLoopParams.inc'
404
404
      INCLUDE 'process_info.inc'
405
 
C     Change the list 'LOOPLIBS_QPAVAILABLE' in loop_matrix_standalone.
406
 
C     inc to change the list of QPTools availables
 
405
C     Change the list 'LOOPLIBS_QPAVAILABLE' in
 
406
C      loop_matrix_standalone.inc to change the list of QPTools
 
407
C      availables
407
408
      LOGICAL QP_TOOLS_AVAILABLE
408
409
      INTEGER INDEX_QP_TOOLS(QP_NLOOPLIB+1)
409
410
      COMMON/ML5_0_LOOP_TOOLS/QP_TOOLS_AVAILABLE,INDEX_QP_TOOLS
491
492
      TIRCOEFS(0,1:3)=IREGICOEFS(0,1:3)
492
493
      IF(RANK.LE.0)RETURN
493
494
C     Reduction Coefficient q(0)
494
 
      TIRCOEFS(0,1:3)=IREGICOEFS(1,1:3)
 
495
      TIRCOEFS(1,1:3)=IREGICOEFS(1,1:3)
495
496
C     Reduction Coefficient q(1)
496
 
      TIRCOEFS(1,1:3)=IREGICOEFS(2,1:3)
 
497
      TIRCOEFS(2,1:3)=IREGICOEFS(2,1:3)
497
498
C     Reduction Coefficient q(2)
498
 
      TIRCOEFS(2,1:3)=IREGICOEFS(3,1:3)
 
499
      TIRCOEFS(3,1:3)=IREGICOEFS(3,1:3)
499
500
C     Reduction Coefficient q(3)
500
 
      TIRCOEFS(3,1:3)=IREGICOEFS(4,1:3)
 
501
      TIRCOEFS(4,1:3)=IREGICOEFS(4,1:3)
501
502
      IF(RANK.LE.1)RETURN
502
503
C     Reduction Coefficient q(0)^2
503
 
      TIRCOEFS(0,1:3)=IREGICOEFS(5,1:3)
 
504
      TIRCOEFS(5,1:3)=IREGICOEFS(5,1:3)
504
505
C     Reduction Coefficient q(0)*q(1)
505
 
      TIRCOEFS(1,1:3)=IREGICOEFS(6,1:3)
 
506
      TIRCOEFS(6,1:3)=IREGICOEFS(6,1:3)
506
507
C     Reduction Coefficient q(1)^2
507
 
      TIRCOEFS(1,1:3)=IREGICOEFS(9,1:3)
 
508
      TIRCOEFS(7,1:3)=IREGICOEFS(9,1:3)
508
509
C     Reduction Coefficient q(0)*q(2)
509
 
      TIRCOEFS(2,1:3)=IREGICOEFS(7,1:3)
 
510
      TIRCOEFS(8,1:3)=IREGICOEFS(7,1:3)
510
511
C     Reduction Coefficient q(1)*q(2)
511
 
      TIRCOEFS(2,1:3)=IREGICOEFS(10,1:3)
 
512
      TIRCOEFS(9,1:3)=IREGICOEFS(10,1:3)
512
513
C     Reduction Coefficient q(2)^2
513
 
      TIRCOEFS(2,1:3)=IREGICOEFS(12,1:3)
 
514
      TIRCOEFS(10,1:3)=IREGICOEFS(12,1:3)
514
515
C     Reduction Coefficient q(0)*q(3)
515
 
      TIRCOEFS(3,1:3)=IREGICOEFS(8,1:3)
 
516
      TIRCOEFS(11,1:3)=IREGICOEFS(8,1:3)
516
517
C     Reduction Coefficient q(1)*q(3)
517
 
      TIRCOEFS(3,1:3)=IREGICOEFS(11,1:3)
 
518
      TIRCOEFS(12,1:3)=IREGICOEFS(11,1:3)
518
519
C     Reduction Coefficient q(2)*q(3)
519
 
      TIRCOEFS(3,1:3)=IREGICOEFS(13,1:3)
 
520
      TIRCOEFS(13,1:3)=IREGICOEFS(13,1:3)
520
521
C     Reduction Coefficient q(3)^2
521
 
      TIRCOEFS(3,1:3)=IREGICOEFS(14,1:3)
 
522
      TIRCOEFS(14,1:3)=IREGICOEFS(14,1:3)
522
523
      IF(RANK.LE.2)RETURN
523
524
C     Reduction Coefficient q(0)^3
524
 
      TIRCOEFS(0,1:3)=IREGICOEFS(15,1:3)
 
525
      TIRCOEFS(15,1:3)=IREGICOEFS(15,1:3)
525
526
C     Reduction Coefficient q(0)^2*q(1)
526
 
      TIRCOEFS(1,1:3)=IREGICOEFS(16,1:3)
 
527
      TIRCOEFS(16,1:3)=IREGICOEFS(16,1:3)
527
528
C     Reduction Coefficient q(0)*q(1)^2
528
 
      TIRCOEFS(1,1:3)=IREGICOEFS(19,1:3)
 
529
      TIRCOEFS(17,1:3)=IREGICOEFS(19,1:3)
529
530
C     Reduction Coefficient q(1)^3
530
 
      TIRCOEFS(1,1:3)=IREGICOEFS(25,1:3)
 
531
      TIRCOEFS(18,1:3)=IREGICOEFS(25,1:3)
531
532
C     Reduction Coefficient q(0)^2*q(2)
532
 
      TIRCOEFS(2,1:3)=IREGICOEFS(17,1:3)
 
533
      TIRCOEFS(19,1:3)=IREGICOEFS(17,1:3)
533
534
C     Reduction Coefficient q(0)*q(1)*q(2)
534
 
      TIRCOEFS(2,1:3)=IREGICOEFS(20,1:3)
 
535
      TIRCOEFS(20,1:3)=IREGICOEFS(20,1:3)
535
536
C     Reduction Coefficient q(1)^2*q(2)
536
 
      TIRCOEFS(2,1:3)=IREGICOEFS(26,1:3)
 
537
      TIRCOEFS(21,1:3)=IREGICOEFS(26,1:3)
537
538
C     Reduction Coefficient q(0)*q(2)^2
538
 
      TIRCOEFS(2,1:3)=IREGICOEFS(22,1:3)
 
539
      TIRCOEFS(22,1:3)=IREGICOEFS(22,1:3)
539
540
C     Reduction Coefficient q(1)*q(2)^2
540
 
      TIRCOEFS(2,1:3)=IREGICOEFS(28,1:3)
 
541
      TIRCOEFS(23,1:3)=IREGICOEFS(28,1:3)
541
542
C     Reduction Coefficient q(2)^3
542
 
      TIRCOEFS(2,1:3)=IREGICOEFS(31,1:3)
 
543
      TIRCOEFS(24,1:3)=IREGICOEFS(31,1:3)
543
544
C     Reduction Coefficient q(0)^2*q(3)
544
 
      TIRCOEFS(3,1:3)=IREGICOEFS(18,1:3)
 
545
      TIRCOEFS(25,1:3)=IREGICOEFS(18,1:3)
545
546
C     Reduction Coefficient q(0)*q(1)*q(3)
546
 
      TIRCOEFS(3,1:3)=IREGICOEFS(21,1:3)
 
547
      TIRCOEFS(26,1:3)=IREGICOEFS(21,1:3)
547
548
C     Reduction Coefficient q(1)^2*q(3)
548
 
      TIRCOEFS(3,1:3)=IREGICOEFS(27,1:3)
 
549
      TIRCOEFS(27,1:3)=IREGICOEFS(27,1:3)
549
550
C     Reduction Coefficient q(0)*q(2)*q(3)
550
 
      TIRCOEFS(3,1:3)=IREGICOEFS(23,1:3)
 
551
      TIRCOEFS(28,1:3)=IREGICOEFS(23,1:3)
551
552
C     Reduction Coefficient q(1)*q(2)*q(3)
552
 
      TIRCOEFS(3,1:3)=IREGICOEFS(29,1:3)
 
553
      TIRCOEFS(29,1:3)=IREGICOEFS(29,1:3)
553
554
C     Reduction Coefficient q(2)^2*q(3)
554
 
      TIRCOEFS(3,1:3)=IREGICOEFS(32,1:3)
 
555
      TIRCOEFS(30,1:3)=IREGICOEFS(32,1:3)
555
556
C     Reduction Coefficient q(0)*q(3)^2
556
 
      TIRCOEFS(3,1:3)=IREGICOEFS(24,1:3)
 
557
      TIRCOEFS(31,1:3)=IREGICOEFS(24,1:3)
557
558
C     Reduction Coefficient q(1)*q(3)^2
558
 
      TIRCOEFS(3,1:3)=IREGICOEFS(30,1:3)
 
559
      TIRCOEFS(32,1:3)=IREGICOEFS(30,1:3)
559
560
C     Reduction Coefficient q(2)*q(3)^2
560
 
      TIRCOEFS(3,1:3)=IREGICOEFS(33,1:3)
 
561
      TIRCOEFS(33,1:3)=IREGICOEFS(33,1:3)
561
562
C     Reduction Coefficient q(3)^3
562
 
      TIRCOEFS(3,1:3)=IREGICOEFS(34,1:3)
 
563
      TIRCOEFS(34,1:3)=IREGICOEFS(34,1:3)
563
564
      IF(RANK.LE.3)RETURN
564
565
      END