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 1984-2000 The Mathworks, Inc. 
%   $Revision: 1.17 $  $Date: 2000/06/02 04:41:51 $

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