function r8_gaml_test ( )

%*****************************************************************************80
%
%% R8_GAML_TEST tests R8_GAML.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 April 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_GAML_TEST:\n' );
  fprintf ( 1, '  R8_GAML returns bounds for the argument of the gamma function.\n' );

  [ xmin, xmax ] = r8_gaml ( );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Lower limit XMIN = %g\n', xmin );
  fprintf ( 1, '  Upper limit XMAX = %g\n', xmax );

  return
end
