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;
}
