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

◆ FLA_Tridiag_UT_internal()

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().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
18  FLA_Tridiag_UT_internal_check( uplo, A, T, cntl );
19 
20  if ( uplo == FLA_LOWER_TRIANGULAR )
21  {
22  r_val = FLA_Tridiag_UT_l( A, T, cntl );
23  }
24  else // if ( uplo == FLA_UPPER_TRIANGULAR )
25  {
26  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
27  }
28 
29  return r_val;
30 }
FLA_Error FLA_Tridiag_UT_internal_check(FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, fla_tridiagut_t *cntl)
Definition: FLA_Tridiag_UT_internal_check.c:13
FLA_Error FLA_Tridiag_UT_l(FLA_Obj A, FLA_Obj T, fla_tridiagut_t *cntl)
Definition: FLA_Tridiag_UT_l.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18