Functions | |
FLA_Error | FLA_SPDinv_internal (FLA_Uplo uplo, FLA_Obj A, fla_spdinv_t *cntl) |
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 }