function a = bauer_matrix ( )

%*****************************************************************************80
%
%% bauer_matrix() returns the BAUER matrix.
%
%  Example:
%
%    -74   80  18 -11  -4  -8
%     14  -69  21  28   0   7
%     66  -72  -5   7   1   4
%    -12   66 -30 -23   3  -3
%      3    8  -7  -4   1   0
%      4  -12   4   4   0   1
%
%  Properties:
%
%    The matrix is not symmetric.
%
%    The matrix is integral.
%
%    The inverse matrix is integral.
%
%    The matrix is ill-conditioned.
%
%    The determinant is 1.
%
%    The matrix has two complex eigenvalues.
%
%    A is not diagonally dominant.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Virginia Klema, Alan Laub,
%    The Singular Value Decomposition: Its Computation and Some Applications,
%    IEEE Transactions on Automatic Control,
%    Volume 25, Number 2, April 1980.
%
%  Output:
%
%    real A(6,6), the matrix.
%
  a = [ ...
    -74.0,  80.0,  18.0, -11.0,  -4.0,  -8.0 ; ...
     14.0, -69.0,  21.0,  28.0,   0.0,   7.0 ; ...
     66.0, -72.0,  -5.0,   7.0,   1.0,   4.0 ; ...
    -12.0,  66.0, -30.0, -23.0,   3.0,  -3.0 ; ...
      3.0,   8.0,  -7.0,  -4.0,   1.0,   0.0 ; ...
      4.0, -12.0,   4.0,   4.0,   0.0,   1.0 ];

  return
end
