#*****************************************************************************80
#
## einsum_test() tests Einstein summation implemented by einsum().
#
#  Licensing:
#
#    This code is distributed under the MIT license. 
#
#  Modified:
#
#    07 August 2026
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( 'einsum_test():\n' )
cat ( " ", version$version.string, "\n" )
cat ( "  einsum() carries out Einstein summation.\n" )

source ( "/home/john/public_html/r_src/einsum_test/matrix_column_sum_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_diagonal_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_matrix_multiplication_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_matrix_multiplication_hadamard_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_row_sum_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_trace_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_transpose_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/matrix_vector_multiplication_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/vector_inner_product_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/vector_norm_test.R" )
source ( "/home/john/public_html/r_src/einsum_test/vector_outer_product_test.R" )

library ( "einsum" )
require ( "einsum" )

matrix_column_sum_test ( )
matrix_diagonal_test ( )
matrix_matrix_multiplication_test ( )
matrix_matrix_multiplication_hadamard_test ( )
matrix_row_sum_test ( )
matrix_trace_test ( )
matrix_transpose_test ( )
matrix_vector_multiplication_test ( )
vector_inner_product_test ( )
vector_norm_test ( )
vector_outer_product_test ( )
#
#  Terminate.
#
cat ( '\n' )
cat ( 'einsum_test():\n' )
cat ( '  Normal end of execution.\n' )
cat ( date ( ), "\n" )

quit ( )