Function qagie

void qagie(Real, Func) (
  Func f,
  Real bound,
  int inf,
  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
);