function vanloan_test ( )

%*****************************************************************************80
%
%% vanloan_test() tests vanloan().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 March 2025
%
%  Author:
%
%    John Burkardt
%
  addpath ( '../vanloan' );

  timestamp ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vanloan_test():\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  Test vanloan()\n' );

  cholerr ( );
  return
%
%  Weird error.
%
% show2quad ( );
  show2dquad ( );
  showab ( );
  showadapts ( );
% showbisect ( );
  showbvp ( );
% showcholblock ( );
  showcompqnc ( );
  showcontour ( );
  showeuler ( );
  showeulerh ( );
% showfdn ( );
% showfft ( );
  showfixedeuler ( );
  showfmin ( );
% showfmins ( );
  showge2 ( );
  showge ( );
  showgepiv ( );
% showgn ( );
  showgolden ( );
  showhermite ( );
  showhesslu ( );
  showlsfit ( );
  showlsq ( );
% showmixed ( );
  showmysqrt ( );
  showncidea ( );
  showkepler ( );
% shownewton ( );
% shown_test ( );
  showpc ( );
  showpwch ( );
  showpwl1 ( );
  showpwl2 ( );
  showqncerror ( );
  showqnc ( );
  showqr ( );
  showquads ( );
  showrk ( );
% showsd ( );
  showspline ( );
  showsplineq ( );
  showsplinetools ( );
  showtraj ( );
  showtri ( );
  showtrid ( );
  showtrunc ( );
  showv ( );
  zoom_test ( );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vanloan_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  timestamp ( );
  rmpath ( '../vanloan' );

  return
end
function timestamp ( )

%*****************************************************************************80
%
%% timestamp() prints the current YMDHMS date as a timestamp.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 February 2003
%
%  Author:
%
%    John Burkardt
%
  t = now;
  c = datevec ( t );
  s = datestr ( c, 0 );
  fprintf ( 1, '%s\n', s );

  return
end

