function q = spd_random_eigen_right ( n, key )

%*****************************************************************************80
%
%% spd_random_eigen_right returns the right eigenvectors of the SPD_RANDOM matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the order of A.
%
%    integer KEY, a positive value that selects the data.
%
%  Output:
%
%    real Q(N,N), the matrix.
%
  rng ( key );
%
%  Get a random set of eigenvalues.
%
  lambda = rand ( n, 1 );
%
%  Get a random orthogonal matrix Q.
%
  q = orthogonal_random_matrix ( n, key );

  return
end
