function tf=pdeisfunc(f)
%PDEISFUNC True if input name is a function.

%       A. Nordmark 7-1-96.
%       Copyright (c) 1994-98 by The MathWorks, Inc.
%       $Revision: 1.4 $  $Date: 1997/11/25 17:05:55 $

tf=0;
if isstr(f) & size(f,1)==1
  if size(f,2)>0
    % We assume function names start with a letter and then is letters/digits
    il=isletter(f);
    in=abs('0')<=abs(f) & abs(f)<=abs('9');
    if il(1) & all(il(2:end)|in(2:end))
      tf=~all(exist(f)-[2 3 5 6]);
    end
  end
end

