%
%   GFSERIES1A.M   Called by fzero to find zeros of eigencondition eqn
%
%   File prepared by J. R. White, UMass-Lowell (Nov. 2003)
%
      function f = zfile(p)
      global h L
      f = sin(p) + p*cos(p)/(h*L);
%
%   end of function
