libflame revision_anchor
|
Functions | |
FLA_Error | FLA_Bidiag_UT_internal (FLA_Obj A, FLA_Obj TU, FLA_Obj TV, fla_bidiagut_t *cntl) |
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; }