libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_LU_piv (FLA_Obj A, FLA_Obj p) |
Variables | |
fla_lu_t * | fla_lu_piv_cntl |
fla_lu_t * | fla_lu_piv_cntl2 |
FLA_Error FLA_LU_piv | ( | FLA_Obj | A, |
FLA_Obj | p | ||
) |
References FLA_Check_error_level(), FLA_LU_piv_check(), and FLA_LU_piv_internal().
{ FLA_Error r_val = FLA_SUCCESS; // Check parameters. if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) FLA_LU_piv_check( A, p ); // Invoke FLA_LU_piv_internal() with large control tree. r_val = FLA_LU_piv_internal( A, p, fla_lu_piv_cntl2 ); // This is invalid as FLA_LU_piv_internal returns a null pivot index. // Check for singularity. //if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) // r_val = FLA_LU_find_zero_on_diagonal( A ); return r_val; }