function a = harman_inverse ( )

%*****************************************************************************80
%
%% HARMAN_INVERSE returns the inverse of the HARMAN matrix.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    28 October 2007
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Output, real A(N,N), the matrix.
%

%
%  Note that the matrix entries are listed by row.
%
  a = [ ...
   5.505750442924552,  -2.024827472733320, ...
  -0.525564377998213,  -2.414725599885703, ...
  -0.742871704140835,  -0.432339085897328, ...
   0.506363394364808,   0.231316810459756; ...
  -2.024827472733320,   6.632253606390529, ...
  -3.266421707396942,  -1.157009948040102, ...
   0.941928425100928,   0.010152122779319, ...
  -0.318255180872113,  -0.850127918526706; ...
  -0.525564377998213,  -3.266421707396943, ...
   4.945029645612116,  -0.799896971199349, ...
  -0.384019974978888,  -0.082141525217929, ...
   0.342191583208235,   0.250391407726364; ...
  -2.414725599885702,  -1.157009948040101, ...
  -0.799896971199349,   4.769523661962869, ...
  -0.343306754780455,   0.462478615948815, ...
  -0.415704081428472,   0.119432120786903; ...
  -0.742871704140835,   0.941928425100928, ...
  -0.384019974978887,  -0.343306754780455, ...
   3.941357428629264,  -1.549806320843210, ...
  -1.467270532044103,  -0.641583610147637; ...
  -0.432339085897328,   0.010152122779319, ...
  -0.082141525217929,   0.462478615948815, ...
  -1.549806320843210,   2.524233450449795, ...
  -0.122867685019045,  -0.399766570085388; ...
   0.506363394364808,  -0.318255180872113, ...
   0.342191583208235,  -0.415704081428472, ...
  -1.467270532044103,  -0.122867685019045, ...
   2.276170982094793,  -0.262113772509967; ...
   0.231316810459756,  -0.850127918526706, ...
   0.250391407726364,   0.119432120786903, ...
  -0.641583610147637,  -0.399766570085388, ...
  -0.262113772509967,   1.910127138708912 ];

  return
end
