C++ (Cpp) LAPACK_SGEBAK Examples

Example #1

File: gebak.hpp Project: fluxdark/jflib

 inline void gebak( char const job, char const side, integer_t const n,
         integer_t const ilo, integer_t const ihi, float* scale,
         integer_t const m, float* v, integer_t const ldv,
         integer_t& info ) {
     LAPACK_SGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv,
             &info );
 }

Example #2

File: gebak.hpp Project: CQMP/scripts

inline std::ptrdiff_t gebak( const char job, const Side, const fortran_int_t n,
        const fortran_int_t ilo, const fortran_int_t ihi, const float* scale,
        const fortran_int_t m, float* v, const fortran_int_t ldv ) {
    fortran_int_t info(0);
    LAPACK_SGEBAK( &job, &lapack_option< Side >::value, &n, &ilo, &ihi, scale,
            &m, v, &ldv, &info );
    return info;
}