Function quasi

void quasi(Real, Func) (
  Real[] x_,
  Real[] h_,
  int lh,
  int n,
  out Real dif,
  out Real size,
  int ndigit,
  int limit,
  Func func,
  Real[] w_
);