function x = kershaw_eigen_right ( )

%*****************************************************************************80
%
%% KERSHAW_EIGEN_RIGHT returns the right eigenvectors of the KERSHAW matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real X(4,4), the eigenvectors.
%
  x = [ ...
    0.500000000000000,  0.500000000000000, -0.548490135760211,  0.446271857698584; ...
   -0.707106781186548, -0.000000000000000, -0.703402951241362, -0.072279237578588; ...
    0.500000000000000, -0.500000000000000, -0.446271857698584, -0.548490135760211; ...
   -0.000000000000000,  0.707106781186548,  0.072279237578588, -0.703402951241362 ];

  return
end
