inline void unmqr( char const side, char const trans, integer_t const m,
integer_t const n, integer_t const k, traits::complex_d* a,
integer_t const lda, traits::complex_d* tau, traits::complex_d* c,
integer_t const ldc, traits::complex_d* work,
integer_t const lwork, integer_t& info ) {
LAPACK_ZUNMQR( &side, &trans, &m, &n, &k, traits::complex_ptr(a),
&lda, traits::complex_ptr(tau), traits::complex_ptr(c), &ldc,
traits::complex_ptr(work), &lwork, &info );
}
inline
void ormqr (char const side, char const trans, int const m, int const n,
int const k, const traits::complex_d* a, int const lda,
const traits::complex_d* tau, traits::complex_d* c,
int const ldc, traits::complex_d* work, int const lwork,
int& info)
{
assert ( trans=='N' || trans=='C' );
LAPACK_ZUNMQR (&side, &trans, &m, &n, &k,
traits::complex_ptr(a), &lda,
traits::complex_ptr(tau),
traits::complex_ptr(c), &ldc,
traits::complex_ptr(work), &lwork,
&info);
}
