← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%TIR_interface.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%V0_udx_wp%TIR_interface.f
54
54
      INTEGER LAST_LIB_USED
55
55
      DATA LAST_LIB_USED/-1/
56
56
 
57
 
      COMPLEX*16 TIRCOEFS(0:LOOPMAXCOEFS-1,3),TIRCOEFSERRORS(0:LOOPMAXC
58
 
     $OEFS-1,3)
 
57
      COMPLEX*16 TIRCOEFS(0:LOOPMAXCOEFS-1,3)
 
58
     $ ,TIRCOEFSERRORS(0:LOOPMAXCOEFS-1,3)
59
59
      COMPLEX*16 PJCOEFS(0:LOOPMAXCOEFS-1,3)
60
60
C     
61
61
C     EXTERNAL FUNCTIONS
398
398
C     
399
399
      INCLUDE 'MadLoopParams.inc'
400
400
      INCLUDE 'process_info.inc'
401
 
C     Change the list 'LOOPLIBS_QPAVAILABLE' in loop_matrix_standalone.
402
 
C     inc to change the list of QPTools availables
 
401
C     Change the list 'LOOPLIBS_QPAVAILABLE' in
 
402
C      loop_matrix_standalone.inc to change the list of QPTools
 
403
C      availables
403
404
      LOGICAL QP_TOOLS_AVAILABLE
404
405
      INTEGER INDEX_QP_TOOLS(QP_NLOOPLIB+1)
405
406
      COMMON/LOOP_TOOLS/QP_TOOLS_AVAILABLE,INDEX_QP_TOOLS
487
488
      TIRCOEFS(0,1:3)=IREGICOEFS(0,1:3)
488
489
      IF(RANK.LE.0)RETURN
489
490
C     Reduction Coefficient q(0)
490
 
      TIRCOEFS(0,1:3)=IREGICOEFS(1,1:3)
 
491
      TIRCOEFS(1,1:3)=IREGICOEFS(1,1:3)
491
492
C     Reduction Coefficient q(1)
492
 
      TIRCOEFS(1,1:3)=IREGICOEFS(2,1:3)
 
493
      TIRCOEFS(2,1:3)=IREGICOEFS(2,1:3)
493
494
C     Reduction Coefficient q(2)
494
 
      TIRCOEFS(2,1:3)=IREGICOEFS(3,1:3)
 
495
      TIRCOEFS(3,1:3)=IREGICOEFS(3,1:3)
495
496
C     Reduction Coefficient q(3)
496
 
      TIRCOEFS(3,1:3)=IREGICOEFS(4,1:3)
 
497
      TIRCOEFS(4,1:3)=IREGICOEFS(4,1:3)
497
498
      IF(RANK.LE.1)RETURN
498
499
C     Reduction Coefficient q(0)^2
499
 
      TIRCOEFS(0,1:3)=IREGICOEFS(5,1:3)
 
500
      TIRCOEFS(5,1:3)=IREGICOEFS(5,1:3)
500
501
C     Reduction Coefficient q(0)*q(1)
501
 
      TIRCOEFS(1,1:3)=IREGICOEFS(6,1:3)
 
502
      TIRCOEFS(6,1:3)=IREGICOEFS(6,1:3)
502
503
C     Reduction Coefficient q(1)^2
503
 
      TIRCOEFS(1,1:3)=IREGICOEFS(9,1:3)
 
504
      TIRCOEFS(7,1:3)=IREGICOEFS(9,1:3)
504
505
C     Reduction Coefficient q(0)*q(2)
505
 
      TIRCOEFS(2,1:3)=IREGICOEFS(7,1:3)
 
506
      TIRCOEFS(8,1:3)=IREGICOEFS(7,1:3)
506
507
C     Reduction Coefficient q(1)*q(2)
507
 
      TIRCOEFS(2,1:3)=IREGICOEFS(10,1:3)
 
508
      TIRCOEFS(9,1:3)=IREGICOEFS(10,1:3)
508
509
C     Reduction Coefficient q(2)^2
509
 
      TIRCOEFS(2,1:3)=IREGICOEFS(12,1:3)
 
510
      TIRCOEFS(10,1:3)=IREGICOEFS(12,1:3)
510
511
C     Reduction Coefficient q(0)*q(3)
511
 
      TIRCOEFS(3,1:3)=IREGICOEFS(8,1:3)
 
512
      TIRCOEFS(11,1:3)=IREGICOEFS(8,1:3)
512
513
C     Reduction Coefficient q(1)*q(3)
513
 
      TIRCOEFS(3,1:3)=IREGICOEFS(11,1:3)
 
514
      TIRCOEFS(12,1:3)=IREGICOEFS(11,1:3)
514
515
C     Reduction Coefficient q(2)*q(3)
515
 
      TIRCOEFS(3,1:3)=IREGICOEFS(13,1:3)
 
516
      TIRCOEFS(13,1:3)=IREGICOEFS(13,1:3)
516
517
C     Reduction Coefficient q(3)^2
517
 
      TIRCOEFS(3,1:3)=IREGICOEFS(14,1:3)
 
518
      TIRCOEFS(14,1:3)=IREGICOEFS(14,1:3)
518
519
      IF(RANK.LE.2)RETURN
519
520
      END