C++ (Cpp) LAPACK_DLARFT Examples

Example #1

File: larft.hpp Project: CQMP/scripts

//
// Overloaded function for dispatching to
// * netlib-compatible LAPACK backend (the default), and
// * double value-type.
//
inline std::ptrdiff_t larft( const char direct, const char storev,
        const fortran_int_t n, const fortran_int_t k, double* v,
        const fortran_int_t ldv, const double* tau, double* t,
        const fortran_int_t ldt ) {
    fortran_int_t info(0);
    LAPACK_DLARFT( &direct, &storev, &n, &k, v, &ldv, tau, t, &ldt );
    return info;
}

Example #2

File: spqr_larftb.cpp Project: Cookdj0128/fieldtrip

inline void spqr_private_larft (char direct, char storev, Int n, Int k,
                                double *V, Int ldv, double *Tau, double *T, Int ldt, cholmod_common *cc)
{
    BLAS_INT N = n, K = k, LDV = ldv, LDT = ldt ;
    if (CHECK_BLAS_INT &&
            !(EQ (N,n) && EQ (K,k) && EQ (LDV,ldv) && EQ (LDT,ldt)))
    {
        cc->blas_ok = FALSE ;
    }
    if (!CHECK_BLAS_INT || cc->blas_ok)
    {
        LAPACK_DLARFT (&direct, &storev, &N, &K, V, &LDV, Tau, T, &LDT) ;
    }
}