Function qpsrt

void qpsrt(Real) (
  int limit,
  int last,
  ref int maxerr,
  ref Real ermax,
  Real* elist_,
  int* iord_,
  ref int nrmax
);