function a = hess4_eigen_right ( )

%*****************************************************************************80
%
%% hess4_eigen_right() returns the right eigenvectors of the HESS4 matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 March 2018
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    complex A(4,4), the right eigenvector matrix.
%
  a = [ ...
    -0.330070042547862-0.222298022567869i, ...
     1.000000000000000+0.000000000000000i, ...
     0.335490948571943-0.068002965084462i, ...
     0.952157320531579+0.250709960744793i; ...
     1.000000000000000+0.000000000000000i, ...
     0.503205870426247-0.824241552742355i, ...
    -0.768179408120474+0.010513990305666i, ...
     1.000000000000000+0.000000000000000i; ...
     0.257417722386482+0.309094498615456i, ...
    -0.215016769732540+0.275479867860766i, ...
     1.000000000000000+0.000000000000000i, ...
     0.501508766439785-0.172182272014276i; ...
    -0.842630039297297+0.197751498603984i, ...
    -0.238196952722339+0.597205448629795i, ...
    -0.972653465585451-0.104040336437224i, ...
     0.218561824850003+0.044757232962382i ];

  return
end
