Пример #1
0
 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 );
 }
Пример #2
0
//
// 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;
}