libflame  revision_anchor
Functions
FLA_Tridiag_apply_Q_check.c File Reference

(r)

Functions

FLA_Error FLA_Tridiag_apply_Q_check (FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Obj A, FLA_Obj t, FLA_Obj B)
 

Function Documentation

◆ FLA_Tridiag_apply_Q_check()

FLA_Error FLA_Tridiag_apply_Q_check ( FLA_Side  side,
FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  t,
FLA_Obj  B 
)

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_trans(), FLA_Check_valid_uplo(), FLA_Check_vector_dim_min(), FLA_Obj_is_real(), FLA_Obj_length(), and FLA_Obj_width().

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_uplo( uplo );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_valid_trans( trans );
24  FLA_Check_error_code( e_val );
25 
26  if ( FLA_Obj_is_real( A ) )
27  {
28  e_val = FLA_Check_valid_real_trans( trans );
29  FLA_Check_error_code( e_val );
30  }
31  else
32  {
33  e_val = FLA_Check_valid_complex_trans( trans );
34  FLA_Check_error_code( e_val );
35  }
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  {
52  FLA_Check_error_code( e_val );
53 
54  e_val = FLA_Check_vector_dim_min( t, FLA_Obj_length( A ) - 1 );
55  FLA_Check_error_code( e_val );
56  }
57  else
58  {
60  FLA_Check_error_code( e_val );
61 
62  e_val = FLA_Check_vector_dim_min( t, FLA_Obj_width( A ) - 1 );
63  FLA_Check_error_code( e_val );
64  }
65 
66  return FLA_SUCCESS;
67 }
FLA_Error FLA_Check_identical_object_datatype(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:967
FLA_Error FLA_Check_valid_trans(FLA_Trans trans)
Definition: FLA_Check.c:87
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Check_nonconstant_object(FLA_Obj A)
Definition: FLA_Check.c:954
FLA_Error FLA_Check_floating_object(FLA_Obj A)
Definition: FLA_Check.c:232
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_Error FLA_Check_valid_complex_trans(FLA_Trans trans)
Definition: FLA_Check.c:906
FLA_Error FLA_Check_valid_real_trans(FLA_Trans trans)
Definition: FLA_Check.c:917
FLA_Error FLA_Check_vector_dim_min(FLA_Obj x, dim_t min_dim)
Definition: FLA_Check.c:740
FLA_Bool FLA_Obj_is_real(FLA_Obj A)
Definition: FLA_Query.c:307
FLA_Error FLA_Check_valid_leftright_side(FLA_Side side)
Definition: FLA_Check.c:1124
FLA_Error FLA_Check_valid_uplo(FLA_Uplo uplo)
Definition: FLA_Check.c:76
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Error FLA_Check_object_length_equals(FLA_Obj A, dim_t m)
Definition: FLA_Check.c:1039