libflame  revision_anchor
Functions
FLA_Scale_diag_check.c File Reference

(r)

Functions

FLA_Error FLA_Scale_diag_check (FLA_Conj conj, FLA_Obj alpha, FLA_Obj A)
 

Function Documentation

◆ FLA_Scale_diag_check()

FLA_Error FLA_Scale_diag_check ( FLA_Conj  conj,
FLA_Obj  alpha,
FLA_Obj  A 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_conj( conj );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( A );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( A );
24  FLA_Check_error_code( e_val );
25 
26  if ( FLA_Obj_is_real( A ) )
27  {
28  e_val = FLA_Check_consistent_object_datatype( A, alpha );
29  FLA_Check_error_code( e_val );
30  }
31  else
32  {
33  e_val = FLA_Check_identical_object_precision( A, alpha );
34  FLA_Check_error_code( e_val );
35  }
36 
37  e_val = FLA_Check_if_scalar( alpha );
38  FLA_Check_error_code( e_val );
39 
40  return FLA_SUCCESS;
41 }
FLA_Error FLA_Check_if_scalar(FLA_Obj A)
Definition: FLA_Check.c:373
FLA_Bool FLA_Obj_is_real(FLA_Obj A)
Definition: FLA_Query.c:307
FLA_Error FLA_Check_consistent_object_datatype(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:339
FLA_Error FLA_Check_identical_object_precision(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:298
FLA_Error FLA_Check_nonconstant_object(FLA_Obj A)
Definition: FLA_Check.c:954
FLA_Error FLA_Check_valid_conj(FLA_Conj conj)
Definition: FLA_Check.c:112
FLA_Error FLA_Check_floating_object(FLA_Obj A)
Definition: FLA_Check.c:232
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Check_consistent_object_datatype(), FLA_Check_floating_object(), FLA_Check_identical_object_precision(), FLA_Check_if_scalar(), FLA_Check_nonconstant_object(), FLA_Check_valid_conj(), and FLA_Obj_is_real().

Referenced by FLA_Scale_diag().