libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_Tridiag_UT_extract_real_diagonals (FLA_Uplo uplo, FLA_Obj A, FLA_Obj d, FLA_Obj e) |
References FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Check_error_level(), and FLA_Tridiag_UT_extract_real_diagonals_check().
Referenced by FLA_Hevd_lv_unb_var1(), and FLA_Hevd_lv_unb_var2().
{ FLA_Error r_val = FLA_SUCCESS; if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) FLA_Tridiag_UT_extract_real_diagonals_check( uplo, A, d, e ); if ( uplo == FLA_LOWER_TRIANGULAR ) r_val = FLA_Bidiag_UT_l_extract_real_diagonals( A, d, e ); else r_val = FLA_Bidiag_UT_u_extract_real_diagonals( A, d, e ); return r_val; }