function r8_mach_test ( )

%*****************************************************************************80
%
%% R8_MACH_TEST tests R8_MACH.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 April 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_MACH_TEST:\n' );
  fprintf ( 1, '  R8_MACH evaluates double precision machine numbers.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  R8_MACH (1) = B^(EMIN-1), the smallest positive magnitude.\n' );
  fprintf ( 1, '  R8_MACH (2) = B^EMAX*(1 - B^(-T)), the largest magnitude.\n' );
  fprintf ( 1, '  R8_MACH (3) = B^(-T), the smallest relative spacing.\n' );
  fprintf ( 1, '  R8_MACH (4) = B^(1-T), the largest relative spacing.\n' );
  fprintf ( 1, '  R8_MACH (5) = LOG10(B)\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    I     R8_MACH(I)\n' );
  fprintf ( 1, '\n' );

  for i = 1 : 5
    fprintf ( 1, '  %4d  %14.6g\n', i, r8_mach ( i ) );
  end

  return
end