inline void ormqr( char const side, char const trans, integer_t const m,
integer_t const n, integer_t const k, float* a,
integer_t const lda, float* tau, float* c, integer_t const ldc,
float* work, integer_t const lwork, integer_t& info ) {
LAPACK_SORMQR( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
&lwork, &info );
}
inline std::ptrdiff_t ormqr( const Side, const Trans, const fortran_int_t m,
const fortran_int_t n, const fortran_int_t k, const float* a,
const fortran_int_t lda, const float* tau, float* c,
const fortran_int_t ldc, float* work, const fortran_int_t lwork ) {
fortran_int_t info(0);
LAPACK_SORMQR( &lapack_option< Side >::value, &lapack_option<
Trans >::value, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork,
&info );
return info;
}
inline
void ormqr (char const side, char const trans, int const m, int const n,
int const k, const float* a, int const lda,
const float* tau, float* c,
int const ldc, float* work, int const lwork,
int& info)
{
assert ( trans=='N' || trans=='T' );
LAPACK_SORMQR (&side, &trans, &m, &n, &k,
a, &lda,
tau,
c, &ldc,
work, &lwork,
&info);
}
