libflame revision_anchor
|
Functions | |
FLA_Error | FLASH_UDdate_UT_inc_update_rhs (FLA_Obj T, FLA_Obj bR, FLA_Obj C, FLA_Obj bC, FLA_Obj D, FLA_Obj bD) |
FLA_Error FLASH_UDdate_UT_inc_update_rhs | ( | FLA_Obj | T, |
FLA_Obj | bR, | ||
FLA_Obj | C, | ||
FLA_Obj | bC, | ||
FLA_Obj | D, | ||
FLA_Obj | bD | ||
) |
References FLA_Check_error_level(), FLA_UDdate_UT_inc_update_rhs_check(), FLASH_Apply_QUD_UT_inc(), FLASH_Apply_QUD_UT_inc_create_workspace(), FLASH_Obj_create_copy_of(), and FLASH_Obj_free().
{ FLA_Obj W; FLA_Obj bC_copy; FLA_Obj bD_copy; // Check parameters. if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) FLA_UDdate_UT_inc_update_rhs_check( T, bR, C, bC, D, bD ); // Create hierarchical workspace. FLASH_Apply_QUD_UT_inc_create_workspace( T, bR, &W ); // Make temporary copies of the bC and bD right-hand side objects so we // don't destory their original contents. FLASH_Obj_create_copy_of( FLA_NO_TRANSPOSE, bC, &bC_copy ); FLASH_Obj_create_copy_of( FLA_NO_TRANSPOSE, bD, &bD_copy ); // Apply the updowndating Q' incrementally to the right-hand sides. FLASH_Apply_QUD_UT_inc( FLA_LEFT, FLA_CONJ_TRANSPOSE, FLA_FORWARD, FLA_COLUMNWISE, T, W, bR, C, bC_copy, D, bD_copy ); // Free the temporary objects. FLASH_Obj_free( &bC_copy ); FLASH_Obj_free( &bD_copy ); // Free the workspace object. FLASH_Obj_free( &W ); return FLA_SUCCESS; }