Function qc25s

void qc25s(Real, Func) (
  Func f,
  Real a,
  Real b,
  Real bl,
  Real br,
  Real alfa,
  Real beta,
  Real* ri_,
  Real* rj_,
  Real* rg_,
  Real* rh_,
  out Real result,
  out Real abserr,
  out Real resasc,
  int integr,
  out int nev
);