libflame  revision_anchor
Functions
FLA_Bidiag_UT_form_V.c File Reference

(r)

Functions

FLA_Error FLA_Bidiag_UT_form_V (FLA_Obj A, FLA_Obj S, FLA_Obj V)
 

Function Documentation

◆ FLA_Bidiag_UT_form_V()

FLA_Error FLA_Bidiag_UT_form_V ( FLA_Obj  A,
FLA_Obj  S,
FLA_Obj  V 
)

References FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_form_V_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_V_check( A, S, V );
19 
20  uplo = ( FLA_Obj_length( A ) >= FLA_Obj_width( A ) ?
21  FLA_UPPER_TRIANGULAR : FLA_LOWER_TRIANGULAR );
22 
23  FLA_Bidiag_UT_form_V_ext( uplo, A, S,
24  FLA_NO_TRANSPOSE, V );
25 
26  return FLA_SUCCESS;
27 }
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Error FLA_Bidiag_UT_form_V_check(FLA_Obj A, FLA_Obj T, FLA_Obj V)
Definition: FLA_Bidiag_UT_form_V_check.c:13
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_V_ext(FLA_Uplo uplo, FLA_Obj A, FLA_Obj S, FLA_Trans transv, FLA_Obj V)
Definition: FLA_Bidiag_UT_form_V_ext.c:13