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