inline
void getrs (char const trans, int const n, int const nrhs,
traits::complex_f const* a, int const lda,
int const* ipiv,
traits::complex_f* b, int const ldb, int* info)
{
LAPACK_CGETRS (&trans, &n, &nrhs,
traits::complex_ptr (a), &lda, ipiv,
traits::complex_ptr (b), &ldb, info);
}
inline std::ptrdiff_t getrs( Order, const Trans, const fortran_int_t n,
const fortran_int_t nrhs, const std::complex<float>* a,
const fortran_int_t lda, const fortran_int_t* ipiv,
std::complex<float>* b, const fortran_int_t ldb ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
fortran_int_t info(0);
LAPACK_CGETRS( &lapack_option< Trans >::value, &n, &nrhs, a, &lda, ipiv,
b, &ldb, &info );
return info;
}
