libflame  revision_anchor
Functions | Variables
FLA_Axpyt_internal.c File Reference

(r)

Functions

FLA_Error FLA_Axpyt_internal (FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 

Variables

fla_axpyt_tflash_axpyt_cntl_blas
 
fla_axpyt_tflash_axpyt_cntl
 

Function Documentation

◆ FLA_Axpyt_internal()

FLA_Error FLA_Axpyt_internal ( FLA_Trans  trans,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
fla_axpyt_t cntl 
)
17 {
18  FLA_Error r_val = FLA_SUCCESS;
19 
20  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
21  FLA_Axpyt_internal_check( trans, alpha, A, B, cntl );
22 
23  if ( FLA_Obj_equals( alpha, FLA_ZERO ) )
24  return FLA_SUCCESS;
25 
26  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
27  FLA_Obj_elemtype( A ) == FLA_MATRIX &&
28  FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
29  {
30  // Recurse
31  r_val = FLA_Axpyt_internal( trans,
32  alpha,
33  *FLASH_OBJ_PTR_AT( A ),
34  *FLASH_OBJ_PTR_AT( B ),
36  }
37  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
38  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
40  {
41  // Enqueue
42  ENQUEUE_FLASH_Axpyt( trans, alpha, A, B, cntl );
43  }
44  else
45  {
46  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
47  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
49  {
50  // Execute leaf
51  cntl = flash_axpyt_cntl_blas;
52  }
53 
54  // Parameter combinations
55  if ( trans == FLA_NO_TRANSPOSE )
56  {
57  r_val = FLA_Axpyt_n( alpha, A, B, cntl );
58  }
59  else if ( trans == FLA_TRANSPOSE )
60  {
61  r_val = FLA_Axpyt_t( alpha, A, B, cntl );
62  }
63  else if ( trans == FLA_CONJ_NO_TRANSPOSE )
64  {
65  r_val = FLA_Axpyt_c( alpha, A, B, cntl );
66  }
67  else if ( trans == FLA_CONJ_TRANSPOSE )
68  {
69  r_val = FLA_Axpyt_h( alpha, A, B, cntl );
70  }
71  }
72 
73  return r_val;
74 }
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Axpyt_t(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_t.c:13
FLA_Error FLA_Axpyt_n(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n.c:13
FLA_Error FLA_Axpyt_c(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_c.c:13
FLA_Error FLA_Axpyt_h(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h.c:13
FLA_Error FLA_Axpyt_internal(FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_internal.c:16
fla_axpyt_t * flash_axpyt_cntl_blas
Definition: FLASH_Axpyt_cntl_init.c:13
fla_axpyt_t * flash_axpyt_cntl
Definition: FLASH_Axpyt_cntl_init.c:16
FLA_Error FLA_Axpyt_internal_check(FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_internal_check.c:13
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
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
FLA_Bool FLA_Obj_equals(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:507
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Axpyt_c(), FLA_Axpyt_h(), FLA_Axpyt_internal(), FLA_Axpyt_internal_check(), FLA_Axpyt_n(), FLA_Axpyt_t(), FLA_Check_error_level(), FLA_Obj_elemtype(), FLA_Obj_equals(), FLA_ZERO, flash_axpyt_cntl, flash_axpyt_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_Axpyt(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_internal(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), and FLASH_Axpyt().

Variable Documentation

◆ flash_axpyt_cntl

fla_axpyt_t* flash_axpyt_cntl
extern

Referenced by FLA_Axpyt_internal().

◆ flash_axpyt_cntl_blas

fla_axpyt_t* flash_axpyt_cntl_blas
extern