libflame  revision_anchor
Functions
FLA_Tridiag_UT_extract_diagonals_check.c File Reference

(r)

Functions

FLA_Error FLA_Tridiag_UT_extract_diagonals_check (FLA_Uplo uplo, FLA_Obj A, FLA_Obj d, FLA_Obj e)
 

Function Documentation

◆ FLA_Tridiag_UT_extract_diagonals_check()

FLA_Error FLA_Tridiag_UT_extract_diagonals_check ( FLA_Uplo  uplo,
FLA_Obj  A,
FLA_Obj  d,
FLA_Obj  e 
)

References FLA_Check_floating_object(), FLA_Check_identical_object_datatype(), FLA_Check_if_vector(), FLA_Check_nonconstant_object(), FLA_Check_square(), FLA_Check_valid_uplo(), FLA_Check_vector_dim(), and FLA_Obj_length().

Referenced by FLA_Tridiag_UT_extract_diagonals().

14 {
15  FLA_Error e_val;
16  dim_t m_A;
17 
18  e_val = FLA_Check_valid_uplo( uplo );
19  FLA_Check_error_code( e_val );
20 
21  e_val = FLA_Check_floating_object( A );
22  FLA_Check_error_code( e_val );
23 
24  e_val = FLA_Check_nonconstant_object( A );
25  FLA_Check_error_code( e_val );
26 
27  e_val = FLA_Check_square( A );
28  FLA_Check_error_code( e_val );
29 
30  m_A = FLA_Obj_length( A );
31 
32  e_val = FLA_Check_nonconstant_object( d );
33  FLA_Check_error_code( e_val );
34 
36  FLA_Check_error_code( e_val );
37 
38  e_val = FLA_Check_if_vector( d );
39  FLA_Check_error_code( e_val );
40 
41  e_val = FLA_Check_vector_dim( d, m_A );
42  FLA_Check_error_code( e_val );
43 
44  if ( m_A > 1 )
45  {
46  e_val = FLA_Check_nonconstant_object( e );
47  FLA_Check_error_code( e_val );
48 
50  FLA_Check_error_code( e_val );
51 
52  e_val = FLA_Check_if_vector( e );
53  FLA_Check_error_code( e_val );
54 
55  e_val = FLA_Check_vector_dim( e, m_A - 1 );
56  FLA_Check_error_code( e_val );
57  }
58 
59  return FLA_SUCCESS;
60 }
FLA_Error FLA_Check_identical_object_datatype(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:967
unsigned long dim_t
Definition: FLA_type_defs.h:71
FLA_Error FLA_Check_if_vector(FLA_Obj A)
Definition: FLA_Check.c:383
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_vector_dim(FLA_Obj x, dim_t expected_length)
Definition: FLA_Check.c:1213
FLA_Error FLA_Check_square(FLA_Obj A)
Definition: FLA_Check.c:363
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