inline void gebak( char const job, char const side, integer_t const n, integer_t const ilo, integer_t const ihi, double* scale, integer_t const m, double* v, integer_t const ldv, integer_t& info ) { LAPACK_DGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); }
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 double* scale, const fortran_int_t m, double* v, const fortran_int_t ldv ) { fortran_int_t info(0); LAPACK_DGEBAK( &job, &lapack_option< Side >::value, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); return info; }