Function qagse

void qagse(Real, Func) (
  Func f,
  Real a,
  Real b,
  Real epsabs,
  Real epsrel,
  int limit,
  out Real result,
  out Real abserr,
  out int neval,
  out int ier,
  Real* alist_,
  Real* blist_,
  Real* rlist_,
  Real* elist_,
  int* iord_,
  out int last
);