SuiteSparse/SPQR/Source/spqr_front.cpp
inline void spqr_private_larf (Long m, Long n, double *V, double tau,
    double *C, Long ldc, double *W, cholmod_common *cc)
{
    BLAS_INT M = m, N = n, LDC = ldc, one = 1 ;
    char left = 'L' ;
    if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDC,ldc)))
    {
        cc->blas_ok = FALSE ;
        
    }
    if (!CHECK_BLAS_INT || cc->blas_ok)
    {
        LAPACK_DLARF (&left, &M, &N, V, &one, &tau, C, &LDC, W) ;
    }
}
//  For the complex case, we need to apply H', which requires that tau be
//  conjugated.
//
//  If applied to a single column, this function performs 2*n-1 flops to
//  compute w, and 2*n+1 to apply it to C, for a total of 4*n flops.
For the complex case, we need to apply H', which requires that tau be
conjugated.

If applied to a single column, this function performs 2*n-1 flops to
compute w, and 2*n+1 to apply it to C, for a total of 4*n flops.
For the complex case we need to apply H ' which requires that tau be conjugated . If applied to a single column this function performs 2 * n - 1 flops to compute w and 2 * n + 1 to apply it to C for a total of 4 * n flops .
inline void spqr_private_larf (Long m, Long n, double *V, double tau,
    double *C, Long ldc, double *W, cholmod_common *cc)
{
    BLAS_INT M = m, N = n, LDC = ldc, one = 1 ;
    char left = 'L' ;
    if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDC,ldc)))
    {
        cc->blas_ok = FALSE ;
    }
    if (!CHECK_BLAS_INT || cc->blas_ok)
    {
        LAPACK_DLARF (&left, &M, &N, V, &one, &tau, C, &LDC, W) ;
    }
}
inline void spqr_private_larf ( Long m , Long n , double * V , double tau , double * C , Long ldc , double * W , cholmod_common * cc ) { BLAS_INT M = m , N = n , LDC = ldc , one = 1 ; char left = ' ' ; if ( CHECK_BLAS_INT && ! ( EQ ( M , m ) && EQ ( N , n ) && EQ ( LDC , ldc ) ) ) { cc -> blas_ok = FALSE ; } if ( ! CHECK_BLAS_INT || cc -> blas_ok ) { LAPACK_DLARF ( & left , & M , & N , V , & one , & tau , C , & LDC , W ) ; } }
For the complex case, we need to apply H', which requires that tau be
conjugated.
For the complex case we need to apply H ' which requires that tau be conjugated .