function a = wilson_eigen_right ( )

%*****************************************************************************80
%
%% WILSON_EIGEN_RIGHT returns the right eigenvectors of the WILSON matrix.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    08 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Output, real A(4,4), the right eigenvector matrix.
%

%
%  Note that the matrix entries are listed by row.
%
  a = [ ...
   0.380262074390714, ...
   0.396305561186082, ... 
   0.093305039089285, ...
   0.830443752841578; ...
   0.528567849528642, ...
   0.614861280394151, ...
  -0.301652326903523, ...
  -0.501565058582058; ...
   0.551954849631663, ...
  -0.271601039711768, ...
   0.760318430013036, ...
  -0.208553600252039; ...
   0.520924780743657, ...
  -0.625396181050490, ...
  -0.567640668325261, ...
   0.123697458332363 ];

  return
end
