// // 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; }
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) ; } }