//
// Overloaded function for dispatching to
// * netlib-compatible LAPACK backend (the default), and
// * complex<double> value-type.
//
inline std::ptrdiff_t larfg( const fortran_int_t n,
std::complex<double>& alpha, std::complex<double>* x,
const fortran_int_t incx, std::complex<double>& tau ) {
fortran_int_t info(0);
LAPACK_ZLARFG( &n, &alpha, x, &incx, &tau );
return info;
}
inline Complex spqr_private_larfg (Long n, Complex *X, cholmod_common *cc)
{
Complex tau = 0 ;
BLAS_INT N = n, one = 1 ;
if (CHECK_BLAS_INT && !EQ (N,n))
{
cc->blas_ok = FALSE ;
}
if (!CHECK_BLAS_INT || cc->blas_ok)
{
LAPACK_ZLARFG (&N, X, X + 1, &one, &tau) ;
}
return (tau) ;
}
