libflame  revision_anchor
Functions
FLA_Copyt.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_Copyt_internal (FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 
FLA_Error FLA_Copyt_n (FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 
FLA_Error FLA_Copyt_t (FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 
FLA_Error FLA_Copyt_c (FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 
FLA_Error FLA_Copyt_h (FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
 

Function Documentation

◆ FLA_Copyt_c()

FLA_Error FLA_Copyt_c ( FLA_Obj  A,
FLA_Obj  B,
fla_copyt_t cntl 
)

References FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), and FLA_Copyt_c_task().

Referenced by FLA_Copyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Copyt_c_task( A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Copyt_c_blk_var1( 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_Copyt_c_blk_var2( A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Copyt_c_blk_var3( 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_Copyt_c_blk_var4( 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_Copyt_c_task(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_task.c:28
FLA_Error FLA_Copyt_c_blk_var3(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c_blk_var3.c:13
FLA_Error FLA_Copyt_c_blk_var4(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c_blk_var4.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Copyt_c_blk_var2(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c_blk_var2.c:13
FLA_Error FLA_Copyt_c_blk_var1(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c_blk_var1.c:13

◆ FLA_Copyt_h()

FLA_Error FLA_Copyt_h ( FLA_Obj  A,
FLA_Obj  B,
fla_copyt_t cntl 
)

References FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), and FLA_Copyt_h_task().

Referenced by FLA_Copyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Copyt_h_task( A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Copyt_h_blk_var1( 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_Copyt_h_blk_var2( A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Copyt_h_blk_var3( 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_Copyt_h_blk_var4( 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_Copyt_h_task(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_task.c:33
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Copyt_h_blk_var1(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h_blk_var1.c:13
FLA_Error FLA_Copyt_h_blk_var2(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h_blk_var2.c:13
FLA_Error FLA_Copyt_h_blk_var3(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h_blk_var3.c:13
FLA_Error FLA_Copyt_h_blk_var4(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h_blk_var4.c:13

◆ FLA_Copyt_internal()

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

References FLA_Check_error_level(), FLA_Copyt_c(), FLA_Copyt_h(), FLA_Copyt_internal_check(), FLA_Copyt_n(), FLA_Copyt_t(), FLA_Obj_elemtype(), 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_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().

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_Error FLA_Copyt_internal(FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_internal.c:16
FLA_Error FLA_Copyt_h(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_h.c:13
FLA_Error FLA_Copyt_c(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_c.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_Copyt_t(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t.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_internal_check(FLA_Trans trans, FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_internal_check.c:13
fla_copyt_t * flash_copyt_cntl
Definition: FLASH_Copyt_cntl_init.c:16
fla_copyt_t * flash_copyt_cntl_blas
Definition: FLASH_Copyt_cntl_init.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51

◆ FLA_Copyt_n()

FLA_Error FLA_Copyt_n ( FLA_Obj  A,
FLA_Obj  B,
fla_copyt_t cntl 
)

References FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), and FLA_Copyt_n_task().

Referenced by FLA_Copyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Copyt_n_task( A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Copyt_n_blk_var1( 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_Copyt_n_blk_var2( A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Copyt_n_blk_var3( 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_Copyt_n_blk_var4( 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_Copyt_n_task(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_task.c:18
FLA_Error FLA_Copyt_n_blk_var1(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_n_blk_var1.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Copyt_n_blk_var4(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_n_blk_var4.c:13
FLA_Error FLA_Copyt_n_blk_var3(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_n_blk_var3.c:13
FLA_Error FLA_Copyt_n_blk_var2(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_n_blk_var2.c:13

◆ FLA_Copyt_t()

FLA_Error FLA_Copyt_t ( FLA_Obj  A,
FLA_Obj  B,
fla_copyt_t cntl 
)

References FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), and FLA_Copyt_t_task().

Referenced by FLA_Copyt_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Copyt_t_task( A, B, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Copyt_t_blk_var1( 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_Copyt_t_blk_var2( A, B, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Copyt_t_blk_var3( 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_Copyt_t_blk_var4( 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_Copyt_t_task(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_task.c:23
FLA_Error FLA_Copyt_t_blk_var2(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t_blk_var2.c:13
FLA_Error FLA_Copyt_t_blk_var3(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t_blk_var3.c:13
FLA_Error FLA_Copyt_t_blk_var1(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t_blk_var1.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Copyt_t_blk_var4(FLA_Obj A, FLA_Obj B, fla_copyt_t *cntl)
Definition: FLA_Copyt_t_blk_var4.c:13