function test_interp_nd_test ( )

%*****************************************************************************80
%
%% test_interp_nd_test tests test_interp_nd.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    29 March 2019
%
%  Author:
%
%    John Burkardt
%
  addpath ( '../r8lib' )
  addpath ( '../test_interp_nd' );

  timestamp (  );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'test_interp_nd_test\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Test test_interp_nd.\n' );
  fprintf ( 1, '  The R8LIB library is also needed.\n' );

  test_interp_nd_test01 ( );

  n = 10;
  for m = 2 : 4
    test_interp_nd_test02 ( m, n );
  end

  n = 2;
  for m = 2 : 4
    test_interp_nd_test03 ( m, n );
  end

  m = 4;
  n = 10000;
  test_interp_nd_test04 ( m, n );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'test_interp_nd_test\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );
  timestamp ( );

  rmpath ( '../r8lib' )
  rmpath ( '../test_interp_nd' );

  return
end
