C++ (Cpp) LAPACK_ZLARFTの例

コード例 #1

ファイル: larft.hpp プロジェクト: CQMP/scripts

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

コード例 #2

ファイル: spqr_larftb.cpp プロジェクト: Cookdj0128/fieldtrip

inline void spqr_private_larft (char direct, char storev, Int n, Int k,
                                Complex *V, Int ldv, Complex *Tau, Complex *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_ZLARFT (&direct, &storev, &N, &K, V, &LDV, Tau, T, &LDT) ;
    }
}