function a = drmac_good_inverse ( )

%*****************************************************************************80
%
%% drmac_good_inverse() returns the inverse of the DRMAC_GOOD 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.0185185  -0.0925925  -0.0925925
%   -0.0925925   1.0185185  -0.0925925
%   -0.0925925  -0.0925925   1.0185185
%
%  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.1, -0.1, -0.1; ...
    -0.1,  1.1, -0.1; ...
    -0.1, -0.1,  1.1 ];
	  
  a(1:3,1:3) = a(1:3,1:3) / 1.08;

  return
end
