-- aquad.ads  adaptive quadrature using aquad3
with Real_Arrays;
use Real_Arrays;

package aquad is
  type funct is access function (x : real) return real;
                                 -- may need more parameters

  function aquad3(f : funct; xmin, xmax, eps : real) return Real;
end aquad;