24 FLA_Obj scale, T, S, rL, rR, d, e, G, H, C;
25 dim_t m_A, n_A, min_m_n;
27 double crossover_ratio = 17.0 / 9.0;
36 min_m_n = min( m_A, n_A );
71 if ( m_A < crossover_ratio * n_A )
82 if ( u_is_formed == FALSE )
86 case FLA_SVD_VECTORS_MIN_OVERWRITE:
87 if ( jobv != FLA_SVD_VECTORS_NONE )
91 case FLA_SVD_VECTORS_ALL:
92 case FLA_SVD_VECTORS_MIN_COPY:
96 case FLA_SVD_VECTORS_NONE:
101 if ( v_is_formed == FALSE )
103 if ( jobv == FLA_SVD_VECTORS_MIN_OVERWRITE )
115 else if ( jobv != FLA_SVD_VECTORS_NONE )
159 FLA_Copyr( FLA_UPPER_TRIANGULAR, AT, R );
162 if ( u_is_formed == FALSE )
166 case FLA_SVD_VECTORS_MIN_OVERWRITE:
168 case FLA_SVD_VECTORS_ALL:
169 case FLA_SVD_VECTORS_MIN_COPY:
173 case FLA_SVD_VECTORS_NONE:
188 if ( v_is_formed == FALSE )
190 if ( jobv == FLA_SVD_VECTORS_MIN_OVERWRITE )
202 else if ( jobv != FLA_SVD_VECTORS_NONE )
235 if ( jobu != FLA_SVD_VECTORS_NONE )
240 if ( jobu == FLA_SVD_VECTORS_MIN_OVERWRITE ||
241 jobv == FLA_SVD_VECTORS_MIN_OVERWRITE )
244 FLA_Gemm( FLA_NO_TRANSPOSE, FLA_NO_TRANSPOSE,
251 FLA_Gemm( FLA_NO_TRANSPOSE, FLA_NO_TRANSPOSE,
268 if ( jobv == FLA_SVD_VECTORS_MIN_OVERWRITE )
FLA_Error FLA_Bidiag_UT(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT.c:17
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
FLA_Error FLA_Bidiag_UT_extract_real_diagonals(FLA_Obj A, FLA_Obj d, FLA_Obj e)
Definition: FLA_Bidiag_UT_extract_real_diagonals.c:13
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
FLA_Error FLA_Bidiag_UT_create_T(FLA_Obj A, FLA_Obj *TU, FLA_Obj *TV)
Definition: FLA_Bidiag_UT_create_T.c:13
FLA_Error FLA_Bidiag_UT_realify(FLA_Obj A, FLA_Obj d, FLA_Obj e)
Definition: FLA_Bidiag_UT_realify.c:13
FLA_Error FLA_Bsvd_ext_opt_var1(dim_t n_iter_max, FLA_Obj d, FLA_Obj e, FLA_Obj G, FLA_Obj H, FLA_Svd_type jobu, FLA_Obj U, FLA_Svd_type jobv, FLA_Obj V, FLA_Bool apply_Uh2C, FLA_Obj C, dim_t b_alg)
Definition: FLA_Bsvd_ext_opt_var1.c:13
FLA_Error FLA_QR_UT_form_Q(FLA_Obj A, FLA_Obj T, FLA_Obj Q)
Definition: FLA_QR_UT_form_Q.c:13
FLA_Error FLA_QR_UT_create_T(FLA_Obj A, FLA_Obj *T)
Definition: FLA_QR_UT_create_T.c:13
FLA_Error FLA_Copy(FLA_Obj A, FLA_Obj B)
Definition: FLA_Copy.c:15
FLA_Error FLA_Scal(FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Scal.c:15
FLA_Error FLA_Copyr(FLA_Uplo uplo, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyr.c:15
FLA_Error FLA_Gemm(FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm.c:15
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
FLA_Obj FLA_SAFE_INV_MIN
Definition: FLA_Init.c:29
FLA_Obj FLA_UNDERFLOW_SQUARE_THRES
Definition: FLA_Init.c:33
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
FLA_Obj FLA_SAFE_MIN
Definition: FLA_Init.c:27
FLA_Obj FLA_OVERFLOW_SQUARE_THRES
Definition: FLA_Init.c:34
FLA_Error FLA_QR_UT(FLA_Obj A, FLA_Obj T)
Definition: FLA_QR_UT.c:15
FLA_Bool FLA_Obj_gt(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:658
FLA_Datatype FLA_Obj_datatype_proj_to_complex(FLA_Obj A)
Definition: FLA_Query.c:37
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_Obj_create(FLA_Datatype datatype, dim_t m, dim_t n, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:55
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_Error FLA_Part_2x1(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t mb, FLA_Side side)
Definition: FLA_View.c:76
FLA_Bool FLA_Obj_lt(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:813
FLA_Datatype FLA_Obj_datatype_proj_to_real(FLA_Obj A)
Definition: FLA_Query.c:23
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
FLA_Error FLA_Obj_create_conf_to(FLA_Trans trans, FLA_Obj old, FLA_Obj *obj)
Definition: FLA_Obj.c:286
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
int FLA_Datatype
Definition: FLA_type_defs.h:49
unsigned long dim_t
Definition: FLA_type_defs.h:71
int FLA_Bool
Definition: FLA_type_defs.h:46
FLA_Error FLA_Setr(FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Setr.c:13
FLA_Error FLA_Conjugate(FLA_Obj A)
Definition: FLA_Conjugate.c:13
FLA_Error FLA_Max_abs_value(FLA_Obj A, FLA_Obj amax)
Definition: FLA_Max_abs_value.c:13
FLA_Error FLA_Apply_diag_matrix(FLA_Side side, FLA_Conj conj, FLA_Obj x, FLA_Obj A)
Definition: FLA_Apply_diag_matrix.c:13
Definition: FLA_type_defs.h:159