function a = drmac_bad_inverse ( )

%*****************************************************************************80
%
%% DRMAC_BAD_INVERSE returns the inverse of the DRMAC_BAD matrix.
%
%  Discussion:
%
%    The Drmac matrix is available in a "badly scaled" or "well scaled" 
%    version, and in versions that have been symmetrically permuted.
%
%  Formula:
%
%    1.0185185E-40  -0.0925925E-30  -0.0925925E-20
%   -0.0925925E-30   1.0185185E-20  -0.0925925E-10
%   -0.0925925E-20  -0.0925925E-10   1.0185185E+00
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 December 2019
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real A(3,3), the inverse of the Drmac matrix.
%
  a(1:3,1:3) = [
     1.1E-40, -0.1E-30, -0.1E-20; ...
    -0.1E-30,  1.1E-20, -0.1E-10; ...
    -0.1E-20, -0.1E-10,  1.1E+00 ];
	  
  a(1:3,1:3) = a(1:3,1:3) / 1.08;

  return
end
