libflame  revision_anchor
Functions
FLA_Copy_to.c File Reference

(r)

Functions

FLA_Error FLA_Copy_buffer_to_object (FLA_Trans trans, dim_t m, dim_t n, void *A_buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj B)
 
FLA_Error FLA_Copy_object_to_buffer (FLA_Trans trans, dim_t i, dim_t j, FLA_Obj A, dim_t m, dim_t n, void *B_buffer, dim_t rs, dim_t cs)
 

Function Documentation

◆ FLA_Copy_buffer_to_object()

FLA_Error FLA_Copy_buffer_to_object ( FLA_Trans  trans,
dim_t  m,
dim_t  n,
void *  A_buffer,
dim_t  rs,
dim_t  cs,
dim_t  i,
dim_t  j,
FLA_Obj  B 
)

References FLA_Check_error_level(), FLA_Copy_buffer_to_object_check(), FLA_Copyt_external(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), and FLA_Part_2x2().

14 {
15  FLA_Obj A;
16  FLA_Obj BTL, BTR,
17  BBL, Bij;
18 
19  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
20  FLA_Copy_buffer_to_object_check( trans, m, n, A_buffer, rs, cs, i, j, B );
21 
22  FLA_Part_2x2( B, &BTL, &BTR,
23  &BBL, &Bij, i, j, FLA_TL );
24 
26  FLA_Obj_attach_buffer( A_buffer, rs, cs, &A );
27 
28  FLA_Copyt_external( trans, A, Bij );
29 
31 
32  return FLA_SUCCESS;
33 }
FLA_Error FLA_Copy_buffer_to_object_check(FLA_Trans trans, dim_t m, dim_t n, void *A_buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj B)
Definition: FLA_Copy_buffer_to_object_check.c:13
FLA_Error FLA_Obj_attach_buffer(void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:522
FLA_Error FLA_Obj_create_without_buffer(FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
Definition: FLA_Obj.c:362
FLA_Error FLA_Copyt_external(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyt_external.c:13
FLA_Error FLA_Part_2x2(FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_View.c:17
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
Definition: FLA_type_defs.h:158
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int i
Definition: bl1_axmyv2.c:145
FLA_Error FLA_Obj_free_without_buffer(FLA_Obj *obj)
Definition: FLA_Obj.c:615

◆ FLA_Copy_object_to_buffer()

FLA_Error FLA_Copy_object_to_buffer ( FLA_Trans  trans,
dim_t  i,
dim_t  j,
FLA_Obj  A,
dim_t  m,
dim_t  n,
void *  B_buffer,
dim_t  rs,
dim_t  cs 
)

References FLA_Check_error_level(), FLA_Copy_object_to_buffer_check(), FLA_Copyt_external(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), and FLA_Part_2x2().

38 {
39  FLA_Obj B;
40  FLA_Obj ATL, ATR,
41  ABL, Aij;
42 
43  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
44  FLA_Copy_object_to_buffer_check( trans, i, j, A, m, n, B_buffer, rs, cs );
45 
46  FLA_Part_2x2( A, &ATL, &ATR,
47  &ABL, &Aij, i, j, FLA_TL );
48 
50  FLA_Obj_attach_buffer( B_buffer, rs, cs, &B );
51 
52  FLA_Copyt_external( trans, Aij, B );
53 
55 
56  return FLA_SUCCESS;
57 }
FLA_Error FLA_Obj_attach_buffer(void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:522
FLA_Error FLA_Obj_create_without_buffer(FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
Definition: FLA_Obj.c:362
FLA_Error FLA_Copyt_external(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyt_external.c:13
FLA_Error FLA_Part_2x2(FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_View.c:17
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
Definition: FLA_type_defs.h:158
FLA_Error FLA_Copy_object_to_buffer_check(FLA_Trans trans, dim_t i, dim_t j, FLA_Obj A, dim_t m, dim_t n, void *B_buffer, dim_t rs, dim_t cs)
Definition: FLA_Copy_object_to_buffer_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int i
Definition: bl1_axmyv2.c:145
FLA_Error FLA_Obj_free_without_buffer(FLA_Obj *obj)
Definition: FLA_Obj.c:615