Exemplo n.º 1
0
//
// 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;
}
Exemplo n.º 2
0
 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);
 }