|
libflame
revision_anchor
|
Functions | |
| FLA_Error | FLA_LU_nopiv (FLA_Obj A) |
Variables | |
| fla_lu_t * | fla_lu_nopiv_cntl |
| fla_lu_t * | fla_lu_nopiv_cntl2 |
| FLA_Error FLA_LU_nopiv | ( | FLA_Obj | A | ) |
References FLA_Check_error_level(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv_check(), and FLA_LU_nopiv_internal().
{
FLA_Error r_val;
// Check parameters.
if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
FLA_LU_nopiv_check( A );
// Invoke FLA_LU_nopiv_internal() with large control tree.
r_val = FLA_LU_nopiv_internal( A, fla_lu_nopiv_cntl2 );
// Check for singularity.
if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
r_val = FLA_LU_find_zero_on_diagonal( A );
return r_val;
}
1.7.6.1