libflame  revision_anchor
Functions
FLA_Tridiag_UT_internal.c File Reference

(r)

Functions

FLA_Error FLA_Tridiag_UT_internal (FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, fla_tridiagut_t *cntl)

Function Documentation

References FLA_Check_error_level(), FLA_Tridiag_UT_internal_check(), FLA_Tridiag_UT_l(), and FLA_Tridiag_UT_u().

Referenced by FLA_Tridiag_UT().

{
    FLA_Error r_val = FLA_SUCCESS;
    
    if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
        FLA_Tridiag_UT_internal_check( uplo, A, T, cntl );

    if ( uplo == FLA_LOWER_TRIANGULAR )
    {
        r_val = FLA_Tridiag_UT_l( A, T, cntl );
    }
    else // if ( uplo == FLA_UPPER_TRIANGULAR )
    {
        r_val = FLA_Tridiag_UT_u( A, T, cntl );
    }

    return r_val;
}