libflame  revision_anchor
Functions
FLA_Apply_Q_check.c File Reference

(r)

Functions

FLA_Error FLA_Apply_Q_check (FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj t, FLA_Obj B)
 

Function Documentation

◆ FLA_Apply_Q_check()

FLA_Error FLA_Apply_Q_check ( FLA_Side  side,
FLA_Trans  trans,
FLA_Store  storev,
FLA_Obj  A,
FLA_Obj  t,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_leftright_side( side );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_valid_trans( trans );
21  FLA_Check_error_code( e_val );
22 
23  if ( FLA_Obj_is_real( A ) )
24  {
25  e_val = FLA_Check_valid_real_trans( trans );
26  FLA_Check_error_code( e_val );
27  }
28  else
29  {
30  e_val = FLA_Check_valid_complex_trans( trans );
31  FLA_Check_error_code( e_val );
32  }
33 
34  e_val = FLA_Check_valid_storev( storev );
35  FLA_Check_error_code( e_val );
36 
37  e_val = FLA_Check_floating_object( A );
38  FLA_Check_error_code( e_val );
39 
40  e_val = FLA_Check_nonconstant_object( A );
41  FLA_Check_error_code( e_val );
42 
44  FLA_Check_error_code( e_val );
45 
47  FLA_Check_error_code( e_val );
48 
49  if ( side == FLA_LEFT )
50  {
51  if ( storev == FLA_COLUMNWISE )
52  {
54  FLA_Check_error_code( e_val );
55  }
56  else // if ( storev == FLA_ROWWISE )
57  {
59  FLA_Check_error_code( e_val );
60  }
61  }
62  else
63  {
64  if ( storev == FLA_COLUMNWISE )
65  {
67  FLA_Check_error_code( e_val );
68  }
69  else // if ( storev == FLA_ROWWISE )
70  {
72  FLA_Check_error_code( e_val );
73  }
74  }
75 
76  return FLA_SUCCESS;
77 }
FLA_Error FLA_Check_object_width_equals(FLA_Obj A, dim_t n)
Definition: FLA_Check.c:1049
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Bool FLA_Obj_is_real(FLA_Obj A)
Definition: FLA_Query.c:307
FLA_Error FLA_Check_object_length_equals(FLA_Obj A, dim_t m)
Definition: FLA_Check.c:1039
FLA_Error FLA_Check_valid_trans(FLA_Trans trans)
Definition: FLA_Check.c:87
FLA_Error FLA_Check_valid_leftright_side(FLA_Side side)
Definition: FLA_Check.c:1124
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Error FLA_Check_valid_complex_trans(FLA_Trans trans)
Definition: FLA_Check.c:906
FLA_Error FLA_Check_nonconstant_object(FLA_Obj A)
Definition: FLA_Check.c:954
FLA_Error FLA_Check_valid_real_trans(FLA_Trans trans)
Definition: FLA_Check.c:917
FLA_Error FLA_Check_identical_object_datatype(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:967
FLA_Error FLA_Check_valid_storev(FLA_Conj storev)
Definition: FLA_Check.c:134
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_floating_object(), FLA_Check_identical_object_datatype(), FLA_Check_nonconstant_object(), FLA_Check_object_length_equals(), FLA_Check_object_width_equals(), FLA_Check_valid_complex_trans(), FLA_Check_valid_leftright_side(), FLA_Check_valid_real_trans(), FLA_Check_valid_storev(), FLA_Check_valid_trans(), FLA_Obj_is_real(), FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Apply_Q_blk_external().