iswhole(varargin)

function tf = iswhole(varargin)
%
function [d,ndx,varout] = iswhole(varargin)
% ISWHOLE True for integers(whole numbers).
%     ISWHOLE(X) is 1 for the elements of X that are integers, 0 otherwise.
%     ISWHOLE(X1,X2,..,XN) returns a 1-by-N array with 1 for integers and 0
%     otherwise.
% ISWHOLE does not check for integer data type as does ISINTEGER.

% Mukhtar Ullah
% [e-mail]
% University of Rostock
% November 15, 2004
%%%%%%%%%%%%%%%%%%%%%
% Adapted SLIGHTLY from the original version of iswhole() by Mukhtar
% Josef Lotz
% Portland State University
% February 276, 2007

C = varargin;
nIn = nargin;

if nIn < 2
   d = C{:} == round(C{:});
else
   d = zeros(1,nIn);
   for i = 1:nIn
       d(i) = isequal(C{i},round(C{i}));
   end
end

% Line added to retrieve the indices of the whole number
ndx = find(d);
temp = [C{:}];
% As well as a vector of whole numbers found
varout = temp(ndx);