← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%TIR_interface.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%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
400
400
C     
401
401
      INCLUDE 'MadLoopParams.inc'
402
402
      INCLUDE 'process_info.inc'
403
 
C     Change the list 'LOOPLIBS_QPAVAILABLE' in loop_matrix_standalone.
404
 
C     inc to change the list of QPTools availables
 
403
C     Change the list 'LOOPLIBS_QPAVAILABLE' in
 
404
C      loop_matrix_standalone.inc to change the list of QPTools
 
405
C      availables
405
406
      LOGICAL QP_TOOLS_AVAILABLE
406
407
      INTEGER INDEX_QP_TOOLS(QP_NLOOPLIB+1)
407
408
      COMMON/MG5_1_LOOP_TOOLS/QP_TOOLS_AVAILABLE,INDEX_QP_TOOLS
489
490
      TIRCOEFS(0,1:3)=IREGICOEFS(0,1:3)
490
491
      IF(RANK.LE.0)RETURN
491
492
C     Reduction Coefficient q(0)
492
 
      TIRCOEFS(0,1:3)=IREGICOEFS(1,1:3)
 
493
      TIRCOEFS(1,1:3)=IREGICOEFS(1,1:3)
493
494
C     Reduction Coefficient q(1)
494
 
      TIRCOEFS(1,1:3)=IREGICOEFS(2,1:3)
 
495
      TIRCOEFS(2,1:3)=IREGICOEFS(2,1:3)
495
496
C     Reduction Coefficient q(2)
496
 
      TIRCOEFS(2,1:3)=IREGICOEFS(3,1:3)
 
497
      TIRCOEFS(3,1:3)=IREGICOEFS(3,1:3)
497
498
C     Reduction Coefficient q(3)
498
 
      TIRCOEFS(3,1:3)=IREGICOEFS(4,1:3)
 
499
      TIRCOEFS(4,1:3)=IREGICOEFS(4,1:3)
499
500
      IF(RANK.LE.1)RETURN
500
501
C     Reduction Coefficient q(0)^2
501
 
      TIRCOEFS(0,1:3)=IREGICOEFS(5,1:3)
 
502
      TIRCOEFS(5,1:3)=IREGICOEFS(5,1:3)
502
503
C     Reduction Coefficient q(0)*q(1)
503
 
      TIRCOEFS(1,1:3)=IREGICOEFS(6,1:3)
 
504
      TIRCOEFS(6,1:3)=IREGICOEFS(6,1:3)
504
505
C     Reduction Coefficient q(1)^2
505
 
      TIRCOEFS(1,1:3)=IREGICOEFS(9,1:3)
 
506
      TIRCOEFS(7,1:3)=IREGICOEFS(9,1:3)
506
507
C     Reduction Coefficient q(0)*q(2)
507
 
      TIRCOEFS(2,1:3)=IREGICOEFS(7,1:3)
 
508
      TIRCOEFS(8,1:3)=IREGICOEFS(7,1:3)
508
509
C     Reduction Coefficient q(1)*q(2)
509
 
      TIRCOEFS(2,1:3)=IREGICOEFS(10,1:3)
 
510
      TIRCOEFS(9,1:3)=IREGICOEFS(10,1:3)
510
511
C     Reduction Coefficient q(2)^2
511
 
      TIRCOEFS(2,1:3)=IREGICOEFS(12,1:3)
 
512
      TIRCOEFS(10,1:3)=IREGICOEFS(12,1:3)
512
513
C     Reduction Coefficient q(0)*q(3)
513
 
      TIRCOEFS(3,1:3)=IREGICOEFS(8,1:3)
 
514
      TIRCOEFS(11,1:3)=IREGICOEFS(8,1:3)
514
515
C     Reduction Coefficient q(1)*q(3)
515
 
      TIRCOEFS(3,1:3)=IREGICOEFS(11,1:3)
 
516
      TIRCOEFS(12,1:3)=IREGICOEFS(11,1:3)
516
517
C     Reduction Coefficient q(2)*q(3)
517
 
      TIRCOEFS(3,1:3)=IREGICOEFS(13,1:3)
 
518
      TIRCOEFS(13,1:3)=IREGICOEFS(13,1:3)
518
519
C     Reduction Coefficient q(3)^2
519
 
      TIRCOEFS(3,1:3)=IREGICOEFS(14,1:3)
 
520
      TIRCOEFS(14,1:3)=IREGICOEFS(14,1:3)
520
521
      IF(RANK.LE.2)RETURN
521
522
      END