← Back to branch summary

~maddevelopers/mg5amcnlo/FO_madspin_fixed

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_gg_ttx%matrix_1.f

  • Committer: olivier-mattelaer
  • Date: 2020-07-06 19:41:16 UTC
  • mfrom: (961.1.9 3.0.3)
  • Revision ID: olivier-mattelaer-20200706194116-pm8u0fi091uqpuon
pass to 3.0.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_gg_ttx%matrix_1.f
85
85
          DO J = 1, NSPLITORDERS
86
86
            AMP_ORDERS(J) = GETORDPOWFROMINDEX1(J, I)
87
87
          ENDDO
88
 
          IF (ABS(ANS(I)).GT.ANS_MAX*TINY) AMP_SPLIT(ORDERS_TO_AMP_SPLI
89
 
     $T_POS(AMP_ORDERS)) = ANS(I)
 
88
          IF (ABS(ANS(I)).GT.ANS_MAX*TINY)
 
89
     $      AMP_SPLIT(ORDERS_TO_AMP_SPLIT_POS(AMP_ORDERS)) = ANS(I)
90
90
        ENDIF
91
91
      ENDDO
92
92
 
404
404
C     BEGIN CODE
405
405
C     
406
406
      DO I=1,NSPLITORDERS
407
 
        SQORDERS(I)=AMPSPLITORDERS(AMPORDERA,I)+AMPSPLITORDERS(AMPORDER
408
 
     $B,I)
 
407
        SQORDERS(I)=AMPSPLITORDERS(AMPORDERA,I)
 
408
     $   +AMPSPLITORDERS(AMPORDERB,I)
409
409
      ENDDO
410
410
      SQSOINDEX1=SQSOINDEX_FROM_ORDERS1(SQORDERS)
411
411
      END