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, traits::complex_f* v, integer_t const ldv,
integer_t& info ) {
LAPACK_CGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m,
traits::complex_ptr(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 float* scale,
const fortran_int_t m, std::complex<float>* v,
const fortran_int_t ldv ) {
fortran_int_t info(0);
LAPACK_CGEBAK( &job, &lapack_option< Side >::value, &n, &ilo, &ihi, scale,
&m, v, &ldv, &info );
return info;
}
