libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_Tridiag_UT_form_Q_check (FLA_Uplo uplo, FLA_Obj A, FLA_Obj T, FLA_Obj Q) |
References FLA_Check_floating_object(), FLA_Check_identical_object_datatype(), FLA_Check_nonconstant_object(), FLA_Check_object_width_equals(), FLA_Check_square(), FLA_Check_valid_uplo(), and FLA_Obj_width().
Referenced by FLA_Tridiag_UT_form_Q().
{ FLA_Error e_val; dim_t n_T; e_val = FLA_Check_valid_uplo( uplo ); FLA_Check_error_code( e_val ); 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 ); e_val = FLA_Check_square( A ); FLA_Check_error_code( e_val ); e_val = FLA_Check_floating_object( T ); FLA_Check_error_code( e_val ); e_val = FLA_Check_nonconstant_object( T ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( A, T ); FLA_Check_error_code( e_val ); n_T = FLA_Obj_width( T ); e_val = FLA_Check_object_width_equals( A, n_T ); FLA_Check_error_code( e_val ); e_val = FLA_Check_floating_object( Q ); FLA_Check_error_code( e_val ); e_val = FLA_Check_nonconstant_object( Q ); FLA_Check_error_code( e_val ); e_val = FLA_Check_square( Q ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( A, Q ); FLA_Check_error_code( e_val ); e_val = FLA_Check_object_width_equals( Q, n_T ); FLA_Check_error_code( e_val ); return FLA_SUCCESS; }