%
%   OILTANKA.M   Function evaluation for QUADL step in OILTANK.M
%
%   Evaluate integrand  x(y) = sqrt(Dy - y^2)  for some y vector in integration range    
%
%   File prepared by J. R. White, UMass-Lowell (July 2003)
%
      function x = oiltanka(y,D)
      x = sqrt(D*y - y.^2);  
%
%   end of function