inline void getrf (int const n, int const m, traits::complex_d* a, int const lda, int* ipiv, int* info) { LAPACK_ZGETRF (&n, &m, traits::complex_ptr (a), &lda, ipiv, info); }
inline std::ptrdiff_t getrf( Order, const fortran_int_t m, const fortran_int_t n, std::complex<double>* 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_ZGETRF( &m, &n, a, &lda, ipiv, &info ); return info; }