30 dim_t n_iter_max = 30;
45 if ( ( transu == FLA_TRANSPOSE || transu == FLA_CONJ_TRANSPOSE ) &&
46 ( jobu != FLA_SVD_VECTORS_NONE && jobu != FLA_SVD_VECTORS_MIN_OVERWRITE ) )
52 if ( ( transv == FLA_TRANSPOSE || transv == FLA_CONJ_TRANSPOSE ) &&
53 ( jobv != FLA_SVD_VECTORS_NONE && jobv != FLA_SVD_VECTORS_MIN_OVERWRITE ) )
61 if ( jobu == FLA_SVD_VECTORS_MIN_COPY )
FLA_Part_1x2( U, &U, &W, min_m_n, FLA_LEFT );
62 if ( jobv == FLA_SVD_VECTORS_MIN_COPY )
FLA_Part_1x2( V, &V, &W, min_m_n, FLA_LEFT );
72 if ( u_flipped == TRUE )
78 if ( v_flipped == TRUE )
101 if ( u_flipped == TRUE )
103 else if ( jobu != FLA_SVD_VECTORS_NONE &&
104 jobu != FLA_SVD_VECTORS_MIN_OVERWRITE )
108 if ( v_flipped == TRUE )
110 else if ( jobv != FLA_SVD_VECTORS_NONE &&
111 jobv != FLA_SVD_VECTORS_MIN_OVERWRITE )
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_ext_check(FLA_Svd_type jobu, FLA_Trans transu, FLA_Svd_type jobv, FLA_Trans transv, FLA_Obj A, FLA_Obj s, FLA_Obj U, FLA_Obj V)
Definition: FLA_Svd_ext_check.c:13
FLA_Error FLA_Obj_flip_view(FLA_Obj *obj)
Definition: FLA_Obj.c:669
FLA_Error FLA_Obj_flip_base(FLA_Obj *obj)
Definition: FLA_Obj.c:647
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
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
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Bool FLA_Obj_is_complex(FLA_Obj A)
Definition: FLA_Query.c:324
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
dim_t FLA_Obj_min_dim(FLA_Obj obj)
Definition: FLA_Query.c:153
int FLA_Error
Definition: FLA_type_defs.h:47
unsigned long dim_t
Definition: FLA_type_defs.h:71
int FLA_Bool
Definition: FLA_type_defs.h:46
FLA_Error FLA_Conjugate(FLA_Obj A)
Definition: FLA_Conjugate.c:13
Definition: FLA_type_defs.h:159