function r8_is_insignificant_test ( )

%*****************************************************************************80
%
%% R8_IS_INSIGNIFICANT_TEST tests R8_IS_INSIGNIFICANT.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    31 July 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_IS_INSIGNIFICANT_TEST\n' );
  fprintf ( 1, '  R8_IS_INSIGNIFICANT(R,S) is TRUE if S is insignicant compared to R.\n' ); 
  fprintf ( 1, '\n' );
  fprintf ( 1, '       R             S              R8_IS_INSIGNIFICANT(R,S)\n' );
  fprintf ( 1, '\n' );

  r = 1.0;
  s = 100.0;

  for i = 1 : 25

    value = r8_is_insignificant ( r, s );

    fprintf ( 1, '  %14.6g  %14.6g  %d\n', r, s, value );
    s = s / 10.0;

  end

  return
end
