libflame  revision_anchor
Functions
FLA_Axpyt.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_Axpyt_internal (FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 
FLA_Error FLA_Axpyt_n (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 
FLA_Error FLA_Axpyt_t (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 
FLA_Error FLA_Axpyt_c (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 
FLA_Error FLA_Axpyt_h (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
 

Function Documentation

◆ FLA_Axpyt_c()

FLA_Error FLA_Axpyt_c ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
fla_axpyt_t cntl 
)

References FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), and FLA_Axpyt_c_task().

Referenced by FLA_Axpyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Axpyt_c_task( alpha, A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Axpyt_c_blk_var1( alpha, A, B, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Axpyt_c_blk_var2( alpha, A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Axpyt_c_blk_var3( alpha, A, B, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Axpyt_c_blk_var4( alpha, A, B, cntl );
39  }
40 #endif
41  else
42  {
43  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
44  }
45 
46  return r_val;
47 }
FLA_Error FLA_Axpyt_c_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_c_blk_var3.c:13
FLA_Error FLA_Axpyt_c_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_c_blk_var1.c:13
FLA_Error FLA_Axpyt_c_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_c_blk_var2.c:13
FLA_Error FLA_Axpyt_c_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_task.c:28
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Axpyt_c_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_c_blk_var4.c:13

◆ FLA_Axpyt_h()

FLA_Error FLA_Axpyt_h ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
fla_axpyt_t cntl 
)

References FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), and FLA_Axpyt_h_task().

Referenced by FLA_Axpyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Axpyt_h_task( alpha, A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Axpyt_h_blk_var1( alpha, A, B, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Axpyt_h_blk_var2( alpha, A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Axpyt_h_blk_var3( alpha, A, B, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Axpyt_h_blk_var4( alpha, A, B, cntl );
39  }
40 #endif
41  else
42  {
43  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
44  }
45 
46  return r_val;
47 }
FLA_Error FLA_Axpyt_h_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h_blk_var3.c:13
FLA_Error FLA_Axpyt_h_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h_blk_var2.c:13
FLA_Error FLA_Axpyt_h_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h_blk_var4.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Axpyt_h_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h_blk_var1.c:13
FLA_Error FLA_Axpyt_h_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_task.c:33

◆ FLA_Axpyt_internal()

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

References FLA_Axpyt_c(), FLA_Axpyt_h(), 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_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_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().

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_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_Error FLA_Axpyt_n(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n.c:13
fla_axpyt_t * flash_axpyt_cntl
Definition: FLASH_Axpyt_cntl_init.c:16
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_Error FLA_Axpyt_h(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_h.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
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_Bool FLA_Obj_equals(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:507
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
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_Obj FLA_ZERO
Definition: FLA_Init.c:20
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51

◆ FLA_Axpyt_n()

FLA_Error FLA_Axpyt_n ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
fla_axpyt_t cntl 
)

References FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), and FLA_Axpyt_n_task().

Referenced by FLA_Axpyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Axpyt_n_task( alpha, A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Axpyt_n_blk_var1( alpha, A, B, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Axpyt_n_blk_var2( alpha, A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Axpyt_n_blk_var3( alpha, A, B, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Axpyt_n_blk_var4( alpha, A, B, cntl );
39  }
40 #endif
41  else
42  {
43  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
44  }
45 
46  return r_val;
47 }
FLA_Error FLA_Axpyt_n_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_task.c:18
FLA_Error FLA_Axpyt_n_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n_blk_var4.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Axpyt_n_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n_blk_var1.c:13
FLA_Error FLA_Axpyt_n_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n_blk_var2.c:13
FLA_Error FLA_Axpyt_n_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_n_blk_var3.c:13

◆ FLA_Axpyt_t()

FLA_Error FLA_Axpyt_t ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
fla_axpyt_t cntl 
)

References FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), and FLA_Axpyt_t_task().

Referenced by FLA_Axpyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Axpyt_t_task( alpha, A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Axpyt_t_blk_var1( alpha, A, B, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Axpyt_t_blk_var2( alpha, A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Axpyt_t_blk_var3( alpha, A, B, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Axpyt_t_blk_var4( alpha, A, B, cntl );
39  }
40 #endif
41  else
42  {
43  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
44  }
45 
46  return r_val;
47 }
FLA_Error FLA_Axpyt_t_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_t_blk_var2.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Axpyt_t_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_t_blk_var4.c:13
FLA_Error FLA_Axpyt_t_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_task.c:23
FLA_Error FLA_Axpyt_t_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_t_blk_var3.c:13
FLA_Error FLA_Axpyt_t_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_axpyt_t *cntl)
Definition: FLA_Axpyt_t_blk_var1.c:13