Functions | |
FLA_Error | FLA_QR_UT_Accum_T_unb_external (FLA_Obj A, FLA_Obj T) |
References FLA_Accum_T_UT_unb_external(), FLA_Check_error_level(), FLA_Obj_create(), FLA_Obj_datatype(), FLA_Obj_free(), FLA_Obj_min_dim(), FLA_QR_UT_check(), and FLA_QR_UT_unb_external().
00036 { 00037 FLA_Obj t; 00038 00039 if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING ) 00040 FLA_QR_UT_check( A, T ); 00041 00042 FLA_Obj_create( FLA_Obj_datatype( A ), FLA_Obj_min_dim( A ), 1, &t ); 00043 00044 FLA_QR_UT_unb_external( A, t ); 00045 00046 FLA_Accum_T_UT_unb_external( FLA_FORWARD, FLA_COLUMNWISE, A, t, T ); 00047 00048 FLA_Obj_free( &t ); 00049 00050 return FLA_SUCCESS; 00051 }