function itis  = isobj(handle)
%ISOBJ    True for objects
%       ISOBJ(X) returns 1's where the elements of X are
%         valid handles and 0's where they are not.
%
%       Claudio  8/25/96


if ~isempty(handle)
    itis=ones(size(handle));
    for i=1:length(handle)
        eval('get(handle(i),''type'');', 'itis(i)=0;');
    end
else
    itis=0;
end

return

