← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportV4IOTest/export_matrix_element_v4_madevent_nogroup/matrix.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportV4IOTest/export_matrix_element_v4_madevent_nogroup/matrix.f
387
387
C     BEGIN CODE
388
388
C     
389
389
      DO I=1,NSO
390
 
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)+AMPSPLITORDERS(ORDERI
391
 
     $NDEXB,I)
 
390
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)
 
391
     $   +AMPSPLITORDERS(ORDERINDEXB,I)
392
392
      ENDDO
393
393
      SQSOINDEX=SOINDEX_FOR_SQUARED_ORDERS(SQORDERS)
394
394
      END
482
482
        RETURN
483
483
      ENDIF
484
484
 
485
 
      WRITE(*,*) 'ERROR:: Stopping function GET_SQUARED_ORDERS_FOR_SOIN'
486
 
     $ //'DEX'
 
485
      WRITE(*,*) 'ERROR:: Stopping function'
 
486
     $ //' GET_SQUARED_ORDERS_FOR_SOINDEX'
487
487
      WRITE(*,*) 'Could not find squared orders index ',SOINDEX
488
488
      STOP
489
489