Function qaws

void qaws(Real, Func) (
  Func f,
  Real a,
  Real b,
  Real alfa,
  Real beta,
  int integr,
  Real epsabs,
  Real epsrel,
  out Real result,
  out Real abserr,
  out int neval,
  out int ier,
  int limit,
  int lenw,
  out int last,
  int* iwork,
  Real* work
);