%
%   SOV_EX2A.M   Called by fzero to find zeros of eigencondition eqn
%                     (used with SOV_EX2.M)
%
%   File prepared by J. R. White, UMass-Lowell (Nov. 2004)
%
      function f = zfile(p)
      global hok L ALPN uL uo CC1
      f = hok*sin(p) + p*cos(p)/L;
%
%   end of function
