libflame  revision_anchor
Functions
FLA_SPDinv_blk_external.c File Reference

(r)

Functions

FLA_Error FLA_SPDinv_blk_external (FLA_Uplo uplo, FLA_Obj A)
 
FLA_Error FLA_SPDinv_blk_ext (FLA_Uplo uplo, FLA_Obj A)
 

Function Documentation

◆ FLA_SPDinv_blk_ext()

FLA_Error FLA_SPDinv_blk_ext ( FLA_Uplo  uplo,
FLA_Obj  A 
)

References FLA_SPDinv_blk_external().

40 {
41  return FLA_SPDinv_blk_external( uplo, A );
42 }
FLA_Error FLA_SPDinv_blk_external(FLA_Uplo uplo, FLA_Obj A)
Definition: FLA_SPDinv_blk_external.c:13

◆ FLA_SPDinv_blk_external()

FLA_Error FLA_SPDinv_blk_external ( FLA_Uplo  uplo,
FLA_Obj  A 
)

References FLA_Check_error_level(), FLA_Chol_blk_external(), FLA_SPDinv_check(), FLA_Trinv_blk_external(), and FLA_Ttmm_blk_external().

Referenced by FLA_SPDinv_blk_ext().

14 {
15 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES
16  FLA_Error e_val;
17 
18  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
19  FLA_SPDinv_check( uplo, A );
20 
21  e_val = FLA_Chol_blk_external( uplo, A );
22 
23  if ( e_val != FLA_SUCCESS )
24  return e_val;
25 
26  e_val = FLA_Trinv_blk_external( uplo, FLA_NONUNIT_DIAG, A );
27 
28  if ( e_val != FLA_SUCCESS )
29  return e_val;
30 
31  FLA_Ttmm_blk_external( uplo, A );
32 #else
33  FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
34 #endif
35 
36  return FLA_SUCCESS;
37 }
FLA_Error FLA_Ttmm_blk_external(FLA_Uplo uplo, FLA_Obj A)
Definition: FLA_Ttmm_blk_external.c:13
FLA_Error FLA_SPDinv_check(FLA_Uplo uplo, FLA_Obj A)
Definition: FLA_SPDinv_check.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Trinv_blk_external(FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A)
Definition: FLA_Trinv_blk_external.c:13
FLA_Error FLA_Chol_blk_external(FLA_Uplo uplo, FLA_Obj A)
Definition: FLA_Chol_blk_external.c:13