libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_Tridiag_UT_internal (FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, fla_tridiagut_t *cntl) |
FLA_Error FLA_Tridiag_UT_internal | ( | FLA_Uplo | uplo, |
FLA_Obj | A, | ||
FLA_Obj | T, | ||
fla_tridiagut_t * | cntl | ||
) |
References FLA_Check_error_level(), FLA_Tridiag_UT_internal_check(), and FLA_Tridiag_UT_l().
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 ) { FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); } return r_val; }