libflame  revision_anchor
Functions
FLA_Bidiag_UT_form_U.c File Reference

(r)

Functions

FLA_Error FLA_Bidiag_UT_form_U (FLA_Obj A, FLA_Obj T, FLA_Obj U)
 

Function Documentation

◆ FLA_Bidiag_UT_form_U()

FLA_Error FLA_Bidiag_UT_form_U ( FLA_Obj  A,
FLA_Obj  T,
FLA_Obj  U 
)

References FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_U_ext(), FLA_Check_error_level(), FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Svd_uv_unb_var1(), and FLA_Svd_uv_unb_var2().

14 {
15  FLA_Uplo uplo;
16 
17  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
18  FLA_Bidiag_UT_form_U_check( A, T, U );
19 
20  uplo = ( FLA_Obj_length( A ) >= FLA_Obj_width( A ) ?
21  FLA_UPPER_TRIANGULAR : FLA_LOWER_TRIANGULAR );
22 
23  FLA_Bidiag_UT_form_U_ext( uplo, A, T,
24  FLA_NO_TRANSPOSE, U );
25 
26  return FLA_SUCCESS;
27 }
FLA_Error FLA_Bidiag_UT_form_U_check(FLA_Obj A, FLA_Obj T, FLA_Obj U)
Definition: FLA_Bidiag_UT_form_U_check.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
int FLA_Uplo
Definition: FLA_type_defs.h:52
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Error FLA_Bidiag_UT_form_U_ext(FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, FLA_Trans transu, FLA_Obj U)
Definition: FLA_Bidiag_UT_form_U_ext.c:13