FLA_SPDinv_internal.c File Reference

(r)


Functions

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

Function Documentation

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

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().

00036 {
00037     FLA_Error r_val;
00038     FLA_Error e_val;
00039 
00040     if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
00041         FLA_SPDinv_internal_check( uplo, A, cntl );
00042 
00043     r_val = FLA_Chol_internal( uplo, A,
00044                                FLA_Cntl_sub_chol( cntl ) );
00045 
00046     if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00047     {
00048         e_val = FLA_Check_chol_failure( r_val );
00049         FLA_Check_error_code( e_val );
00050     }
00051 
00052     FLA_Trinv_internal( uplo, FLA_NONUNIT_DIAG, A, 
00053                         FLA_Cntl_sub_trinv( cntl ) );
00054 
00055     FLA_Ttmm_internal( uplo, A, 
00056                        FLA_Cntl_sub_ttmm( cntl ) );
00057 
00058     return FLA_SUCCESS;
00059 }


Generated on Mon Jul 6 05:45:56 2009 for libflame by  doxygen 1.5.9