function vector_inner_product_test ( )

%*****************************************************************************80
%
%% vector_inner_product_test() computes a vector inner product using einsum().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    09 August 2026
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector_inner_product_test():\n' );

  u = [ 1, 2, 3 ];
  fprintf ( 1, '  u:\n' );
  disp ( u );

  v = [ 4, 5, 6 ];
  fprintf ( 1, '  v:\n' );
  disp ( v );

  w = einsum ( 'i,i ->', u, v );
  fprintf ( 1, '  w = einsum ( "i,i ->", u, v )\n' );
  fprintf ( 1, '  w:\n' );
  disp ( w );

  return
end

