FLA_Bidiag_UT_internal.c File Reference

(r)

Functions
FLA_Error	FLA_Bidiag_UT_internal (FLA_Obj A, FLA_Obj TU, FLA_Obj TV, fla_bidiagut_t *cntl)

---

Function Documentation

FLA_Error FLA_Bidiag_UT_internal	(	FLA_Obj	A,
		FLA_Obj	TU,
		FLA_Obj	TV,
		fla_bidiagut_t *	cntl
	)

References FLA_Bidiag_UT_internal_check(), FLA_Bidiag_UT_u(), FLA_Check_error_level(), FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Bidiag_UT().

{
    FLA_Error r_val = FLA_SUCCESS;
    
    if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
        FLA_Bidiag_UT_internal_check( A, TU, TV, cntl );

    if ( FLA_Obj_length( A ) >= FLA_Obj_width( A ) )
    {
        r_val = FLA_Bidiag_UT_u( A, TU, TV, cntl );
    }
    else // if ( FLA_Obj_length( A ) < FLA_Obj_width( A ) )
    {
        //r_val = FLA_Bidiag_UT_l( A, TU, TV, cntl );
        FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
    }

    return r_val;
}