// // Overloaded function for dispatching to // * netlib-compatible LAPACK backend (the default), and // * double value-type. // inline std::ptrdiff_t orgqr( const fortran_int_t m, const fortran_int_t n, const fortran_int_t k, double* a, const fortran_int_t lda, const double* tau, double* work, const fortran_int_t lwork ) { fortran_int_t info(0); LAPACK_DORGQR( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); return info; }
inline void orgqr(int const m, int const n, int const k, double* a, int const lda, double* tau, double* work, int const lwork, int& info) { LAPACK_DORGQR (&m, &n, &k, a, &lda, tau, work, &lwork, &info); }