function a = bauer_inverse ( )

%*****************************************************************************80
%
%% bauer_inverse() returns the inverse of the BAUER matrix.
%
%  Example:
%
%      1       0      -7     -40     131     -84
%      0       1       7      35    -112      70
%     -2       2      29     155    -502     319
%     15     -12    -192   -1034    3354   -2130
%     43     -42    -600   -3211   10406   -6595
%    -56      52     764    4096  -13276    8421
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real A(6,6), the matrix.
%
  a = [ ...
       1.0,       0.0,      -7.0,     -40.0,     131.0,     -84.0; ...
       0.0,       1.0,       7.0,      35.0,    -112.0,      70.0; ...
      -2.0,       2.0,      29.0,     155.0,    -502.0,     319.0; ...
      15.0,     -12.0,    -192.0,   -1034.0,    3354.0,   -2130.0; ...
      43.0,     -42.0,    -600.0,   -3211.0,   10406.0,   -6595.0; ...
     -56.0,      52.0,     764.0,    4096.0,  -13276.0,    8421.0 ];

  return
end
