16 dim_t n_iter_max = 30;
29 if ( jobu == FLA_SVD_VECTORS_MIN_COPY )
FLA_Part_1x2( U, &U, &W, min_m_n, FLA_LEFT );
30 if ( jobv == FLA_SVD_VECTORS_MIN_COPY )
FLA_Part_1x2( V, &V, &W, min_m_n, FLA_LEFT );
unsigned long dim_t
Definition: FLA_type_defs.h:71
FLA_Error FLA_Obj_flip_base(FLA_Obj *obj)
Definition: FLA_Obj.c:647
FLA_Error FLA_Conjugate(FLA_Obj A)
Definition: FLA_Conjugate.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
Definition: FLA_type_defs.h:158
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Error FLA_Svd_ext_u_unb_var1(FLA_Svd_type jobu, FLA_Svd_type jobv, dim_t n_iter_max, FLA_Obj A, FLA_Obj s, FLA_Obj V, FLA_Obj U, dim_t k_accum, dim_t b_alg)
Definition: FLA_Svd_ext_u_unb_var1.c:14
FLA_Error FLA_Svd_check(FLA_Svd_type jobu, FLA_Svd_type jobv, FLA_Obj A, FLA_Obj s, FLA_Obj U, FLA_Obj V)
Definition: FLA_Svd_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Part_1x2(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
Definition: FLA_View.c:110
FLA_Bool FLA_Obj_is_complex(FLA_Obj A)
Definition: FLA_Query.c:324
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Error FLA_Obj_flip_view(FLA_Obj *obj)
Definition: FLA_Obj.c:669
dim_t FLA_Obj_min_dim(FLA_Obj obj)
Definition: FLA_Query.c:153