function a = rutis3_eigen_right ( )

%*****************************************************************************80
%
%% rutis3_eigen_right() returns the right eigenvectors of the RUTIS3 matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    complex A(4,4), the right eigenvector matrix.
%
  i = sqrt ( -1.0 );

  a(1:4,1:4) = [
     1.0,   1.0,   1.0,   1.0; ...
    -1.0,  -i,     i,     1.0; ...
     1.0,  -i,     i,    -1.0; ...
     1.0,  -1.0,  -1.0,   1.0 ];

  return
end

 
