function range = p18_range ( )

%*****************************************************************************80
%
%% p18_range returns an interval bounding the root for problem 18.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 October 2011
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real RANGE(2), the minimum and maximum values of
%    an interval containing the root.
%
  range(1) = 0.988;
  range(2) = 1.012;

  return
end
