← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%born_matrix.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_dxu_wp%V0_dxu_wp%born_matrix.f
461
461
C     BEGIN CODE
462
462
C     
463
463
      DO I=1,NSO
464
 
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)+AMPSPLITORDERS(ORDERI
465
 
     $NDEXB,I)
 
464
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)
 
465
     $   +AMPSPLITORDERS(ORDERINDEXB,I)
466
466
      ENDDO
467
467
      SQSOINDEX=SOINDEX_FOR_SQUARED_ORDERS(SQORDERS)
468
468
      END
556
556
        RETURN
557
557
      ENDIF
558
558
 
559
 
      WRITE(*,*) 'ERROR:: Stopping function GET_SQUARED_ORDERS_FOR_SOIN'
560
 
     $ //'DEX'
 
559
      WRITE(*,*) 'ERROR:: Stopping function'
 
560
     $ //' GET_SQUARED_ORDERS_FOR_SOINDEX'
561
561
      WRITE(*,*) 'Could not find squared orders index ',SOINDEX
562
562
      STOP
563
563