FLA_LU_nopiv.c File Reference

(r)

Functions
FLA_Error	FLA_LU_nopiv (FLA_Obj A)

Variables
fla_lu_t *	fla_lu_nopiv_cntl
fla_lu_t *	fla_lu_nopiv_cntl2

Function Documentation

FLA_LU_nopiv()

FLA_Error FLA_LU_nopiv

(

FLA_Obj

A

)

{
  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;
}

References FLA_Check_error_level(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv_check(), fla_lu_nopiv_cntl2, FLA_LU_nopiv_internal(), and i.

Variable Documentation

fla_lu_nopiv_cntl

fla_lu_t* fla_lu_nopiv_cntl

extern

Referenced by FLA_LU_nopiv_cntl_finalize(), and FLA_LU_nopiv_cntl_init().

fla_lu_nopiv_cntl2

fla_lu_t* fla_lu_nopiv_cntl2

extern

Referenced by FLA_LU_nopiv(), FLA_LU_nopiv_cntl_finalize(), and FLA_LU_nopiv_cntl_init().