inline void stebz( char const range, char const order, integer_t const n,
float const vl, float const vu, integer_t const il,
integer_t const iu, float const abstol, float* d, float* e,
integer_t& m, integer_t& nsplit, float* w, integer_t* iblock,
integer_t* isplit, float* work, integer_t* iwork,
integer_t& info ) {
LAPACK_SSTEBZ( &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
// * float value-type.
//
inline std::ptrdiff_t stebz( const char range, const char order,
const fortran_int_t n, const float vl, const float vu,
const fortran_int_t il, const fortran_int_t iu, const float abstol,
const float* d, const float* e, fortran_int_t& m,
fortran_int_t& nsplit, float* w, fortran_int_t* iblock,
fortran_int_t* isplit, float* work, fortran_int_t* iwork ) {
fortran_int_t info(0);
LAPACK_SSTEBZ( &range, &order, &n, &vl, &vu, &il, &iu, &abstol, d, e, &m,
&nsplit, w, iblock, isplit, work, iwork, &info );
return info;
}
