~maddevelopers/mg5amcnlo/new_clustering

« back to all changes in this revision

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

  • Committer: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
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
391
391
C     This list specifies what loop involve an Higgs effective vertex
392
392
C      so that CutTools limitations can be correctly implemented
393
393
      LOGICAL HAS_AN_HEFT_VERTEX(NLOOPGROUPS)
394
 
      DATA (HAS_AN_HEFT_VERTEX(I),I=     1,     9) /.TRUE.,.TRUE.
 
394
      DATA (HAS_AN_HEFT_VERTEX(I),I=     1,     9) /.FALSE.,.FALSE.
395
395
     $ ,.FALSE.,.FALSE.,.FALSE.,.FALSE.,.FALSE.,.FALSE.,.FALSE./
396
396
      DATA (HAS_AN_HEFT_VERTEX(I),I=    10,    13) /.FALSE.,.FALSE.
397
397
     $ ,.FALSE.,.FALSE./
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