libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_Bidiag_UT_extract_diagonals_check (FLA_Obj A, FLA_Obj d, FLA_Obj e) |
References FLA_Check_floating_object(), FLA_Check_identical_object_datatype(), FLA_Check_if_vector(), FLA_Check_nonconstant_object(), FLA_Check_vector_dim(), and FLA_Obj_min_dim().
Referenced by FLA_Bidiag_UT_extract_diagonals().
{ FLA_Error e_val; dim_t min_m_n; e_val = FLA_Check_floating_object( A ); FLA_Check_error_code( e_val ); e_val = FLA_Check_nonconstant_object( A ); FLA_Check_error_code( e_val ); min_m_n = FLA_Obj_min_dim( A ); e_val = FLA_Check_nonconstant_object( d ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( A, d ); FLA_Check_error_code( e_val ); e_val = FLA_Check_if_vector( d ); FLA_Check_error_code( e_val ); e_val = FLA_Check_vector_dim( d, min_m_n ); FLA_Check_error_code( e_val ); if ( min_m_n > 1 ) { e_val = FLA_Check_nonconstant_object( e ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( A, e ); FLA_Check_error_code( e_val ); e_val = FLA_Check_if_vector( e ); FLA_Check_error_code( e_val ); e_val = FLA_Check_vector_dim( e, min_m_n - 1 ); FLA_Check_error_code( e_val ); } return FLA_SUCCESS; }