inline std::ptrdiff_t getrf( Order, const fortran_int_t m, const fortran_int_t n, float* a, const fortran_int_t lda, fortran_int_t* ipiv ) { BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) ); fortran_int_t info(0); LAPACK_SGETRF( &m, &n, a, &lda, ipiv, &info ); return info; }
inline void getrf (int const n, int const m, float* a, int const lda, int* ipiv, int* info) { LAPACK_SGETRF (&n, &m, a, &lda, ipiv, info); }