C++ (Cpp) LAPACK_SGEQRF Examples

Example #1

File: geqrf.hpp Project: CQMP/scripts

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

Example #2

File: geqrf.hpp Project: mrgt/cloudy

 inline 
 void geqrf (int const m, int const n,
            float* a, int const lda,
            float* tau, float* work, int const lwork, int& info) 
 {
   LAPACK_SGEQRF (&m, &n, a, &lda, tau, work, &lwork, &info);
 }