function result = isdir(dirpath)
%ISDIR  True if argument is a directory.
%   ISDIR(DIR) returns a 1 if DIR is a directory and 0 otherwise.
%
%   This function is OBSOLETE and may be removed in future versions.

%   P. Barnard 1-10-95
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.15 $  $Date: 1997/11/21 23:48:51 $

result = exist(dirpath,'dir') == 7;
