function golub_test ( )

%*****************************************************************************80
%
%% golub_test() tests golub().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    06 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'golub_test():\n' );
  fprintf ( 1, '  golub() returns a badly conditioned matrix.\n' );

  for i = 1 : 3
%
%  Set the array.
%
    n = 5;
    A = golub ( n );

    fprintf ( 1, '\n' );
    fprintf ( 1, '  Matrix A:\n' );
    fprintf ( 1, '\n' );
    disp ( A );

    r = cond ( A );
    fprintf ( 1, '\n' );
    fprintf ( 1, '  Condition number = %g\n', r );

  end

  return
end

