libflame  revision_anchor
Functions
FLA_Hevd.c File Reference

(r)

Functions

FLA_Error FLA_Hevd (FLA_Evd_type jobz, FLA_Uplo uplo, FLA_Obj A, FLA_Obj l)
 

Function Documentation

◆ FLA_Hevd()

FLA_Error FLA_Hevd ( FLA_Evd_type  jobz,
FLA_Uplo  uplo,
FLA_Obj  A,
FLA_Obj  l 
)

References FLA_Check_error_level(), FLA_Hevd_check(), and FLA_Hevd_lv_unb_var1().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16  dim_t n_iter_max = 30;
17  dim_t k_accum = 32;
18  dim_t b_alg = 512;
19 
20  // Check parameters.
21  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
22  FLA_Hevd_check( jobz, uplo, A, l );
23 
24  // Invoke FLA_Hevd_external() for now.
25  if ( jobz == FLA_EVD_WITH_VECTORS )
26  {
27  if ( uplo == FLA_LOWER_TRIANGULAR )
28  {
29  r_val = FLA_Hevd_lv_unb_var1( n_iter_max, A, l, k_accum, b_alg );
30  }
31  else // if ( uplo == FLA_UPPER_TRIANGULAR )
32  {
33  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
34  }
35  }
36  else // if ( jobz == FLA_EVD_WITHOUT_VECTORS )
37  {
38  if ( uplo == FLA_LOWER_TRIANGULAR )
39  {
40  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
41  }
42  else // if ( uplo == FLA_UPPER_TRIANGULAR )
43  {
44  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
45  }
46  }
47 
48  return r_val;
49 }
unsigned long dim_t
Definition: FLA_type_defs.h:71
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Hevd_check(FLA_Evd_type jobz, FLA_Uplo uplo, FLA_Obj A, FLA_Obj e)
Definition: FLA_Hevd_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Hevd_lv_unb_var1(dim_t n_iter_max, FLA_Obj A, FLA_Obj l, dim_t k_accum, dim_t b_alg)
Definition: FLA_Hevd_lv_unb_var1.c:13