function r8mat_orth_uniform_test ( )

%*****************************************************************************80
%
%% r8mat_orth_uniform_test() tests r8mat_orth_uniform().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    31 December 2021
%
%  Author:
%
%    John Burkardt
%
  n = 5;

  fprintf ( 1, '\n' )
  fprintf ( 1, 'r8mat_orth_uniform_test():\n' )
  fprintf ( 1, '  r8symm_orth_uniform() generates a random orthogopnal matrix.\n' )

  q = r8mat_orth_uniform ( n );

  r8mat_print ( n, n, q, '  The matrix Q:' );

  qtq = q' * q;
  
  r8mat_print ( n, n, qtq, '  The matrix Q''Q (should be identity):' )

  return
end
