FLA_SPDinv_blk_external.c File Reference

(r)


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)

Function Documentation

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(), 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 }


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