%
%   CHIP2D_SOV1C.M   Called by quadl to determine yn*yn integrals - which
%                are the norm of the eigenfunctions (used in CHIP2D_SOV1.M)
%
%   File prepared by J. R. White, UMass-Lowell (Nov. 2003)
%
      function N = ifile(x)
      global hs kc Lc Q EIGN EIGM
      N = cos(EIGM*x).*cos(EIGN*x);
%
%   end of function
