function value = r8vec_is_insignificant ( n, r, s )

%*****************************************************************************80
%
%% R8VEC_IS_INSIGNIFICANT determines if an R8VEC is insignificant.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 November 2011
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the dimension of the vectors.
%
%    real R(N), the vector to be compared against.
%
%    real S(N), the vector to be compared.
%
%  Output:
%
%    logical VALUE, is true if S is insignificant
%    compared to R.
%
  value = true;

  for i = 1 : n

    t = r(i) + s(i);
    tol = eps * abs ( r(i) );

    if ( tol < abs ( r(i) - t ) )
      value = false;
      exit;
    end

  end

  return
end
