%
%   CHIP2D_SOV1A.M   Called by fzero to find zeros of eigencondition eqn
%                            (used with CHIP2D_SOV1.M)
%
%   File prepared by J. R. White, UMass-Lowell (Nov. 2003)
%
      function f = zfile(p)
      global hs kc Lc Q EIGN EIGM
      f = hs*cos(p) - (2*kc*p/Lc).*sin(p);
%
%   end of function
