libflame  revision_anchor
Functions | Variables
FLA_Copyt_internal.c File Reference

(r)

Functions

FLA_Error FLA_Copyt_internal (FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 

Variables

fla_copyt_tflash_copyt_cntl_blas
 
fla_copyt_tflash_copyt_cntl
 

Function Documentation

◆ FLA_Copyt_internal()

FLA_Error FLA_Copyt_internal ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  B,
fla_copyt_t cntl 
)
17 {
18  FLA_Error r_val = FLA_SUCCESS;
19 
20  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
21  FLA_Copyt_internal_check( trans, A, B, cntl );
22 
23  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
24  FLA_Obj_elemtype( A ) == FLA_MATRIX &&
25  FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
26  {
27  // Recurse
28  r_val = FLA_Copyt_internal( trans,
29  *FLASH_OBJ_PTR_AT( A ),
30  *FLASH_OBJ_PTR_AT( B ),
32  }
33  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
34  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
36  {
37  // Enqueue
38  ENQUEUE_FLASH_Copyt( trans, A, B, cntl );
39  }
40  else
41  {
42  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
43  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
45  {
46  // Execute leaf
47  cntl = flash_copyt_cntl_blas;
48  }
49 
50  // Parameter combinations
51  if ( trans == FLA_NO_TRANSPOSE )
52  {
53  r_val = FLA_Copyt_n( A, B, cntl );
54  }
55  else if ( trans == FLA_TRANSPOSE )
56  {
57  r_val = FLA_Copyt_t( A, B, cntl );
58  }
59  else if ( trans == FLA_CONJ_NO_TRANSPOSE )
60  {
61  r_val = FLA_Copyt_c( A, B, cntl );
62  }
63  else if ( trans == FLA_CONJ_TRANSPOSE )
64  {
65  r_val = FLA_Copyt_h( A, B, cntl );
66  }
67  }
68 
69  return r_val;
70 }
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Copyt_c(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c.c:13
FLA_Error FLA_Copyt_n(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_n.c:13
FLA_Error FLA_Copyt_t(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t.c:13
FLA_Error FLA_Copyt_h(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h.c:13
fla_copyt_t * flash_copyt_cntl
Definition: FLASH_Copyt_cntl_init.c:16
FLA_Error FLA_Copyt_internal(FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_internal.c:16
fla_copyt_t * flash_copyt_cntl_blas
Definition: FLASH_Copyt_cntl_init.c:13
FLA_Error FLA_Copyt_internal_check(FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_internal_check.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Check_error_level(), FLA_Copyt_c(), FLA_Copyt_h(), FLA_Copyt_internal(), FLA_Copyt_internal_check(), FLA_Copyt_n(), FLA_Copyt_t(), FLA_Obj_elemtype(), flash_copyt_cntl, flash_copyt_cntl_blas, and FLASH_Queue_get_enabled().

Referenced by FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Copyt(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_internal(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), and FLASH_Copyt().

Variable Documentation

◆ flash_copyt_cntl

fla_copyt_t* flash_copyt_cntl
extern

Referenced by FLA_Copyt_internal().

◆ flash_copyt_cntl_blas

fla_copyt_t* flash_copyt_cntl_blas
extern