%
%   SOV_EX2C.M   Called by quadl to determine yn(x)*f1(x) integrals
%                       (used with SOV_EX2.M)
%
%   File prepared by J. R. White, UMass-Lowell (Nov. 2004)
%
      function F = ifile(x)
      global hok L ALPN uL uo CC1
      W = CC1*x + uL;
      g = uo - W;
      F = g.*sin(ALPN*x);
%
%   end of function
