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