Functions | |
FLA_Error | FLA_SPDinv_blk_external (FLA_Uplo uplo, FLA_Obj A) |
void FLA_F2C() | fla_spdinv_blk_external_f (F_INT *uplo, F_INT *A, F_INT *IERROR) |
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(), and fla_spdinv_blk_external_f().
00036 { 00037 FLA_Error e_val; 00038 00039 if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING ) 00040 FLA_SPDinv_check( uplo, A ); 00041 00042 e_val = FLA_Chol_blk_external( uplo, A ); 00043 00044 if ( e_val != FLA_SUCCESS ) 00045 return e_val; 00046 00047 e_val = FLA_Trinv_blk_external( uplo, FLA_NONUNIT_DIAG, A ); 00048 00049 if ( e_val != FLA_SUCCESS ) 00050 return e_val; 00051 00052 FLA_Ttmm_blk_external( uplo, A ); 00053 00054 return FLA_SUCCESS; 00055 }
void FLA_F2C() fla_spdinv_blk_external_f | ( | F_INT * | uplo, | |
F_INT * | A, | |||
F_INT * | IERROR | |||
) |
References FLA_SPDinv_blk_external().
00059 { 00060 *IERROR = FLA_SPDinv_blk_external( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Obj * ) A ) ); 00062 }