libflame revision_anchor
|
Functions | |
FLA_Error | FLA_Apply_QUD_UT_inc_check (FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D) |
FLA_Error FLA_Apply_QUD_UT_inc_check | ( | FLA_Side | side, |
FLA_Trans | trans, | ||
FLA_Direct | direct, | ||
FLA_Store | storev, | ||
FLA_Obj | T, | ||
FLA_Obj | W, | ||
FLA_Obj | R, | ||
FLA_Obj | U, | ||
FLA_Obj | C, | ||
FLA_Obj | V, | ||
FLA_Obj | D | ||
) |
References FLA_Check_conformal_dims(), FLA_Check_floating_object(), FLA_Check_identical_object_datatype(), FLA_Check_matrix_matrix_dims(), FLA_Check_nonconstant_object(), FLA_Check_object_length_equals(), FLA_Check_object_width_equals(), FLA_Check_valid_direct(), FLA_Check_valid_leftright_side(), FLA_Check_valid_storev(), FLA_Check_valid_trans(), FLA_Obj_length(), and FLA_Obj_width().
Referenced by FLASH_Apply_QUD_UT_inc().
{ FLA_Error e_val; e_val = FLA_Check_valid_leftright_side( side ); FLA_Check_error_code( e_val ); e_val = FLA_Check_valid_trans( trans ); FLA_Check_error_code( e_val ); e_val = FLA_Check_valid_direct( direct ); FLA_Check_error_code( e_val ); e_val = FLA_Check_valid_storev( storev ); FLA_Check_error_code( e_val ); e_val = FLA_Check_floating_object( R ); FLA_Check_error_code( e_val ); e_val = FLA_Check_nonconstant_object( R ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, T ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, W ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, U ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, C ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, V ); FLA_Check_error_code( e_val ); e_val = FLA_Check_identical_object_datatype( R, D ); FLA_Check_error_code( e_val ); if ( side == FLA_LEFT ) { e_val = FLA_Check_object_width_equals( T, FLA_Obj_width( U ) ); FLA_Check_error_code( e_val ); e_val = FLA_Check_object_length_equals( T, max( FLA_Obj_length( U ), FLA_Obj_length( V ) ) ); FLA_Check_error_code( e_val ); e_val = FLA_Check_conformal_dims( FLA_TRANSPOSE, W, R ); FLA_Check_error_code( e_val ); e_val = FLA_Check_matrix_matrix_dims( FLA_NO_TRANSPOSE, FLA_NO_TRANSPOSE, U, R, C ); FLA_Check_error_code( e_val ); e_val = FLA_Check_matrix_matrix_dims( FLA_NO_TRANSPOSE, FLA_NO_TRANSPOSE, V, R, D ); FLA_Check_error_code( e_val ); } else { } return FLA_SUCCESS; }