function y = is0(x,Tol)
%IS0 True for zero elements (within tolerance).
%     y = is0(x,Tol)
%       = abs(x) < Tol
%   Tol = tolerance
%       = [0.01*sqrt(eps)], default

% Copyright (c) 1994-2006 by Michael G. Kay
% Matlog Version 9 13-Jan-2006 (http://www.ie.ncsu.edu/kay/matlog)

% Input Error Checking ****************************************************
error(nargchk(1,2,nargin));
if nargin < 2 || isempty(Tol), Tol = 0.01*sqrt(eps); end
% End (Input Error Checking) **********************************************

y = abs(x) < Tol;