inline void stebz( char const range, char const order, integer_t const n,
double const vl, double const vu, integer_t const il,
integer_t const iu, double const abstol, double* d, double* e,
integer_t& m, integer_t& nsplit, double* w, integer_t* iblock,
integer_t* isplit, double* work, integer_t* iwork,
integer_t& info ) {
LAPACK_DSTEBZ( &range, &order, &n, &vl, &vu, &il, &iu, &abstol, d, e,
&m, &nsplit, w, iblock, isplit, work, iwork, &info );
}
//
// Overloaded function for dispatching to
// * netlib-compatible LAPACK backend (the default), and
// * double value-type.
//
inline std::ptrdiff_t stebz( const char range, const char order,
const fortran_int_t n, const double vl, const double vu,
const fortran_int_t il, const fortran_int_t iu, const double abstol,
const double* d, const double* e, fortran_int_t& m,
fortran_int_t& nsplit, double* w, fortran_int_t* iblock,
fortran_int_t* isplit, double* work, fortran_int_t* iwork ) {
fortran_int_t info(0);
LAPACK_DSTEBZ( &range, &order, &n, &vl, &vu, &il, &iu, &abstol, d, e, &m,
&nsplit, w, iblock, isplit, work, iwork, &info );
return info;
}
