← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/SquaredOrder_IOTest/sqso_uux_uuxuuxx/matrix_ampOrderQED2_eq_2_WGTsq_le_14_QCDsq_gt_4.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/SquaredOrder_IOTest/sqso_uux_uuxuuxx/matrix_ampOrderQED2_eq_2_WGTsq_le_14_QCDsq_gt_4.f
673
673
C     BEGIN CODE
674
674
C     
675
675
      DO I=1,NSO
676
 
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)+AMPSPLITORDERS(ORDERI
677
 
     $NDEXB,I)
 
676
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)
 
677
     $   +AMPSPLITORDERS(ORDERINDEXB,I)
678
678
      ENDDO
679
679
      SQSOINDEX=SOINDEX_FOR_SQUARED_ORDERS(SQORDERS)
680
680
      END
768
768
        RETURN
769
769
      ENDIF
770
770
 
771
 
      WRITE(*,*) 'ERROR:: Stopping function GET_SQUARED_ORDERS_FOR_SOIN'
772
 
     $ //'DEX'
 
771
      WRITE(*,*) 'ERROR:: Stopping function'
 
772
     $ //' GET_SQUARED_ORDERS_FOR_SOINDEX'
773
773
      WRITE(*,*) 'Could not find squared orders index ',SOINDEX
774
774
      STOP
775
775