Function qk15w

void qk15w(Real, Func) (
  Func f,
  Real function(Real, Real, Real, Real, Real, int) w,
  Real p1,
  Real p2,
  Real p3,
  Real p4,
  int kp,
  Real a,
  Real b,
  out Real result,
  out Real abserr,
  out Real resabs,
  out Real resasc
);