function f=pdeeexpd(x,y,s,nx,ny,u,t,f)
%PDEEEXPD Evaluate an expression on edges.

%       A. Nordmark 12-21-94.
%       Copyright (c) 1994-98 by The MathWorks, Inc.
%       $Revision: 1.8 $  $Date: 2000/09/02 04:23:39 $

if isstr(f)
  ok=1;
  fold=f;
  eval('f=eval(fold);','ok=0;');
  if ~ok
    errstr=sprintf( ...
      '%s\n\nIn expression:\n%s\nwhen evaluating boundary conditions.\n', ...
      lasterr,fold);
    error(errstr);
  end
  if any(size(f)-[1 1]) & any(size(f)-size(x))
    errstr=sprintf( ...
      '%s\n\nIn expression:\n%s\nwhen evaluating boundary conditions.\n', ...
      'Expression evaluates to wrong size',fold);
    error(errstr);
  end
end

if length(f)==1
  f=f.*ones(1,length(x));
end

