libflame  revision_anchor
Functions
FLASH_UDdate_UT_inc_update_rhs.c File Reference

(r)

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)
 

Function Documentation

◆ FLASH_UDdate_UT_inc_update_rhs()

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().

16 {
17  FLA_Obj W;
18  FLA_Obj bC_copy;
19  FLA_Obj bD_copy;
20 
21  // Check parameters.
22  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
23  FLA_UDdate_UT_inc_update_rhs_check( T, bR, C, bC, D, bD );
24 
25  // Create hierarchical workspace.
27 
28  // Make temporary copies of the bC and bD right-hand side objects so we
29  // don't destory their original contents.
30  FLASH_Obj_create_copy_of( FLA_NO_TRANSPOSE, bC, &bC_copy );
31  FLASH_Obj_create_copy_of( FLA_NO_TRANSPOSE, bD, &bD_copy );
32 
33  // Apply the updowndating Q' incrementally to the right-hand sides.
34  FLASH_Apply_QUD_UT_inc( FLA_LEFT, FLA_CONJ_TRANSPOSE, FLA_FORWARD, FLA_COLUMNWISE,
35  T, W,
36  bR,
37  C, bC_copy,
38  D, bD_copy );
39 
40  // Free the temporary objects.
41  FLASH_Obj_free( &bC_copy );
42  FLASH_Obj_free( &bD_copy );
43 
44  // Free the workspace object.
45  FLASH_Obj_free( &W );
46 
47  return FLA_SUCCESS;
48 }
FLA_Error FLASH_Apply_QUD_UT_inc(FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D)
Definition: FLASH_Apply_QUD_UT_inc.c:16
FLA_Error FLASH_Obj_create_copy_of(FLA_Trans trans, FLA_Obj H_cur, FLA_Obj *H_new)
Definition: FLASH_Obj.c:561
void FLASH_Obj_free(FLA_Obj *H)
Definition: FLASH_Obj.c:638
FLA_Error FLASH_Apply_QUD_UT_inc_create_workspace(FLA_Obj T, FLA_Obj R, FLA_Obj *W)
Definition: FLASH_Apply_QUD_UT_inc_create_workspace.c:13
FLA_Error FLA_UDdate_UT_inc_update_rhs_check(FLA_Obj T, FLA_Obj bR, FLA_Obj C, FLA_Obj bC, FLA_Obj D, FLA_Obj bD)
Definition: FLA_UDdate_UT_inc_update_rhs_check.c:13
Definition: FLA_type_defs.h:158
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18