libflame  revision_anchor
Functions
FLA_SPDinv.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_SPDinv_internal (FLA_Uplo uplo, FLA_Obj A, fla_spdinv_t *cntl)
 

Function Documentation

◆ FLA_SPDinv_internal()

FLA_Error FLA_SPDinv_internal ( FLA_Uplo  uplo,
FLA_Obj  A,
fla_spdinv_t cntl 
)
14 {
15  FLA_Error r_val;
16  FLA_Error e_val;
17 
18  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
19  FLA_SPDinv_internal_check( uplo, A, cntl );
20 
21  r_val = FLA_Chol_internal( uplo, A,
22  FLA_Cntl_sub_chol( cntl ) );
23 
24  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
25  {
26  e_val = FLA_Check_chol_failure( r_val );
27  FLA_Check_error_code( e_val );
28  }
29 
30  FLA_Trinv_internal( uplo, FLA_NONUNIT_DIAG, A,
31  FLA_Cntl_sub_trinv( cntl ) );
32 
33  FLA_Ttmm_internal( uplo, A,
34  FLA_Cntl_sub_ttmm( cntl ) );
35 
36  return FLA_SUCCESS;
37 }
FLA_Error FLA_Chol_internal(FLA_Uplo uplo, FLA_Obj A, fla_chol_t *cntl)
Definition: FLA_Chol_internal.c:16
FLA_Error FLA_SPDinv_internal_check(FLA_Uplo uplo, FLA_Obj A, fla_spdinv_t *cntl)
Definition: FLA_SPDinv_internal_check.c:13
FLA_Error FLA_Trinv_internal(FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_internal.c:16
FLA_Error FLA_Ttmm_internal(FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t *cntl)
Definition: FLA_Ttmm_internal.c:16
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Check_chol_failure(FLA_Error r_val)
Definition: FLA_Check.c:803
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Check_chol_failure(), FLA_Check_error_level(), FLA_Chol_internal(), FLA_SPDinv_internal_check(), FLA_Trinv_internal(), and FLA_Ttmm_internal().

Referenced by FLA_SPDinv(), and FLASH_SPDinv().