← 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%born_matrix.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%born_matrix.f
437
437
 
438
438
      INTEGER IN1, IN2, OUT
439
439
 
440
 
      IF (IN1.EQ.0.AND.IN2.EQ.1)THEN
 
440
      IF (IN1.EQ.0.AND.IN2.EQ.0)THEN
 
441
        OUT = 2
 
442
 
 
443
 
 
444
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.1)THEN
441
445
        OUT = 1
442
446
 
443
447
 
444
 
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.0)THEN
445
 
        OUT = 2
 
448
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.2)THEN
 
449
        OUT = 0
 
450
 
 
451
 
 
452
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.3)THEN
 
453
        OUT = 3
 
454
 
 
455
 
 
456
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.4)THEN
 
457
        OUT = 4
446
458
 
447
459
 
448
460
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.5)THEN
449
461
        OUT = 0
450
462
 
451
463
 
452
 
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.4)THEN
 
464
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.0)THEN
 
465
        OUT = 2
 
466
 
 
467
 
 
468
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.1)THEN
453
469
        OUT = 4
454
470
 
455
471
 
456
 
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.3)THEN
457
 
        OUT = 3
458
 
 
459
 
 
460
 
      ELSEIF (IN1.EQ.0.AND.IN2.EQ.2)THEN
461
 
        OUT = 0
462
 
 
463
 
 
464
472
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.2)THEN
465
473
        OUT = 0
466
474
 
476
484
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.5)THEN
477
485
        OUT = 0
478
486
 
479
 
 
480
 
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.0)THEN
481
 
        OUT = 2
482
 
 
483
 
 
484
 
      ELSEIF (IN1.EQ.1.AND.IN2.EQ.1)THEN
485
 
        OUT = 4
486
 
 
487
487
      ELSE
488
488
        OUT = - 1
489
489
      ENDIF
567
567
C     BEGIN CODE
568
568
C     
569
569
      DO I=1,NSO
570
 
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)+AMPSPLITORDERS(ORDERI
571
 
     $NDEXB,I)
 
570
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)
 
571
     $   +AMPSPLITORDERS(ORDERINDEXB,I)
572
572
      ENDDO
573
573
      MG5_1_SQSOINDEX=MG5_1_SOINDEX_FOR_SQUARED_ORDERS(SQORDERS)
574
574
      END
662
662
        RETURN
663
663
      ENDIF
664
664
 
665
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_SQUARED_ORDERS_FO'
666
 
     $ //'R_SOINDEX'
 
665
      WRITE(*,*) 'ERROR:: Stopping function'
 
666
     $ //' MG5_1_GET_SQUARED_ORDERS_FOR_SOINDEX'
667
667
      WRITE(*,*) 'Could not find squared orders index ',SOINDEX
668
668
      STOP
669
669
 
702
702
        RETURN
703
703
      ENDIF
704
704
 
705
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_ORDERS_FOR_AMPSOI'
706
 
     $ //'NDEX'
 
705
      WRITE(*,*) 'ERROR:: Stopping function'
 
706
     $ //' MG5_1_GET_ORDERS_FOR_AMPSOINDEX'
707
707
      WRITE(*,*) 'Could not find amplitude split orders index ',SOINDEX
708
708
      STOP
709
709
 
745
745
 1009   CONTINUE
746
746
      ENDDO
747
747
 
748
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_SOINDEX_FOR_AMPORDERS'
749
 
     $ //''
 
748
      WRITE(*,*) 'ERROR:: Stopping function'
 
749
     $ //' MG5_1_SOINDEX_FOR_AMPORDERS'
750
750
      WRITE(*,*) 'Could not find squared orders ',(ORDERS(I),I=1,NSO)
751
751
      STOP
752
752