FLA_Tridiag_UT_extract_real_diagonals.c File Reference

(r)

Functions
FLA_Error	FLA_Tridiag_UT_extract_real_diagonals (FLA_Uplo uplo, FLA_Obj A, FLA_Obj d, FLA_Obj e)

Function Documentation

FLA_Tridiag_UT_extract_real_diagonals()

FLA_Error FLA_Tridiag_UT_extract_real_diagonals	(	FLA_Uplo	uplo,
		FLA_Obj	A,
		FLA_Obj	d,
		FLA_Obj	e
	)

{
  FLA_Error r_val = FLA_SUCCESS;
 
  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Tridiag_UT_extract_real_diagonals_check( uplo, A, d, e );
 
  if ( uplo == FLA_LOWER_TRIANGULAR )
    r_val = FLA_Bidiag_UT_l_extract_real_diagonals( A, d, e );
  else
    r_val = FLA_Bidiag_UT_u_extract_real_diagonals( A, d, e );
 
  return r_val;
}

References FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Check_error_level(), FLA_Tridiag_UT_extract_real_diagonals_check(), and i.

Referenced by FLA_Hevd_lv_unb_var1(), and FLA_Hevd_lv_unb_var2().