libflame  revision_anchor
Functions
FLA_Gemm.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_Gemm_internal (FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_cc (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_ch (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_cn (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_ct (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_hc (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_hh (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_hn (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_ht (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_nc (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_nh (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_nn (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_nt (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_tc (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_th (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_tn (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 
FLA_Error FLA_Gemm_tt (FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
 

Function Documentation

◆ FLA_Gemm_cc()

FLA_Error FLA_Gemm_cc ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_cc_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_cc_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_cc_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_cc_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_cc_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_cc_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_cc_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_cc_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_cc_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_cc_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_cc_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_cc_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_cc_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_cc_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var4.c:15
FLA_Error FLA_Gemm_cc_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var5.c:13
FLA_Error FLA_Gemm_cc_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var4.c:15
FLA_Error FLA_Gemm_cc_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var6.c:15
FLA_Error FLA_Gemm_cc_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var5.c:15
FLA_Error FLA_Gemm_cc_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var3.c:15
FLA_Error FLA_Gemm_cc_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var6.c:15
FLA_Error FLA_Gemm_cc_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var1.c:13
FLA_Error FLA_Gemm_cc_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var3.c:13
FLA_Error FLA_Gemm_cc_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var1.c:15
FLA_Error FLA_Gemm_cc_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cc_unb_var2.c:15
FLA_Error FLA_Gemm_cc_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc_blk_var2.c:15
FLA_Error FLA_Gemm_cc_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:18
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_task(), FLA_Gemm_cc_unb_var1(), FLA_Gemm_cc_unb_var2(), FLA_Gemm_cc_unb_var3(), FLA_Gemm_cc_unb_var4(), FLA_Gemm_cc_unb_var5(), and FLA_Gemm_cc_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_ch()

FLA_Error FLA_Gemm_ch ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_ch_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_ch_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_ch_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_ch_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_ch_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_ch_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_ch_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_ch_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_ch_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_ch_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_ch_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_ch_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_ch_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_ch_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var2.c:15
FLA_Error FLA_Gemm_ch_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var5.c:13
FLA_Error FLA_Gemm_ch_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var4.c:15
FLA_Error FLA_Gemm_ch_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var3.c:15
FLA_Error FLA_Gemm_ch_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var6.c:15
FLA_Error FLA_Gemm_ch_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var1.c:15
FLA_Error FLA_Gemm_ch_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var4.c:15
FLA_Error FLA_Gemm_ch_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var6.c:15
FLA_Error FLA_Gemm_ch_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var3.c:13
FLA_Error FLA_Gemm_ch_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var1.c:13
FLA_Error FLA_Gemm_ch_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch_blk_var2.c:15
FLA_Error FLA_Gemm_ch_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ch_unb_var5.c:15
FLA_Error FLA_Gemm_ch_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:23

References FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_ch_task(), FLA_Gemm_ch_unb_var1(), FLA_Gemm_ch_unb_var2(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_ch_unb_var5(), and FLA_Gemm_ch_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_cn()

FLA_Error FLA_Gemm_cn ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_cn_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_cn_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_cn_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_cn_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_cn_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_cn_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_cn_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_cn_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_cn_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_cn_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_cn_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_cn_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_cn_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_cn_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var3.c:15
FLA_Error FLA_Gemm_cn_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var1.c:13
FLA_Error FLA_Gemm_cn_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var6.c:15
FLA_Error FLA_Gemm_cn_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var4.c:15
FLA_Error FLA_Gemm_cn_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var5.c:13
FLA_Error FLA_Gemm_cn_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var2.c:15
FLA_Error FLA_Gemm_cn_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var3.c:13
FLA_Error FLA_Gemm_cn_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var2.c:15
FLA_Error FLA_Gemm_cn_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var5.c:15
FLA_Error FLA_Gemm_cn_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var4.c:15
FLA_Error FLA_Gemm_cn_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_cn_unb_var1.c:15
FLA_Error FLA_Gemm_cn_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn_blk_var6.c:15
FLA_Error FLA_Gemm_cn_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:28

References FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_task(), FLA_Gemm_cn_unb_var1(), FLA_Gemm_cn_unb_var2(), FLA_Gemm_cn_unb_var3(), FLA_Gemm_cn_unb_var4(), FLA_Gemm_cn_unb_var5(), and FLA_Gemm_cn_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_ct()

FLA_Error FLA_Gemm_ct ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_ct_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_ct_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_ct_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_ct_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_ct_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_ct_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_ct_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_ct_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_ct_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_ct_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_ct_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_ct_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_ct_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_ct_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var5.c:15
FLA_Error FLA_Gemm_ct_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var6.c:15
FLA_Error FLA_Gemm_ct_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var1.c:13
FLA_Error FLA_Gemm_ct_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var2.c:15
FLA_Error FLA_Gemm_ct_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var3.c:15
FLA_Error FLA_Gemm_ct_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var3.c:13
FLA_Error FLA_Gemm_ct_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var1.c:15
FLA_Error FLA_Gemm_ct_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var6.c:15
FLA_Error FLA_Gemm_ct_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var4.c:15
FLA_Error FLA_Gemm_ct_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ct_unb_var2.c:15
FLA_Error FLA_Gemm_ct_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var4.c:15
FLA_Error FLA_Gemm_ct_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct_blk_var5.c:13
FLA_Error FLA_Gemm_ct_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:33

References FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_ct_task(), FLA_Gemm_ct_unb_var1(), FLA_Gemm_ct_unb_var2(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_ct_unb_var5(), and FLA_Gemm_ct_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_hc()

FLA_Error FLA_Gemm_hc ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_hc_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_hc_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_hc_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_hc_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_hc_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_hc_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_hc_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_hc_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_hc_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_hc_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_hc_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_hc_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_hc_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_hc_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var4.c:15
FLA_Error FLA_Gemm_hc_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var1.c:15
FLA_Error FLA_Gemm_hc_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var3.c:15
FLA_Error FLA_Gemm_hc_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var4.c:15
FLA_Error FLA_Gemm_hc_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var2.c:15
FLA_Error FLA_Gemm_hc_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var1.c:13
FLA_Error FLA_Gemm_hc_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var2.c:15
FLA_Error FLA_Gemm_hc_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var5.c:15
FLA_Error FLA_Gemm_hc_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var6.c:15
FLA_Error FLA_Gemm_hc_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var3.c:13
FLA_Error FLA_Gemm_hc_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hc_unb_var6.c:15
FLA_Error FLA_Gemm_hc_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc_blk_var5.c:13
FLA_Error FLA_Gemm_hc_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:38

References FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hc_task(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var3(), FLA_Gemm_hc_unb_var4(), FLA_Gemm_hc_unb_var5(), and FLA_Gemm_hc_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_hh()

FLA_Error FLA_Gemm_hh ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_hh_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_hh_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_hh_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_hh_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_hh_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_hh_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_hh_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_hh_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_hh_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_hh_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_hh_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_hh_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_hh_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_hh_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var5.c:15
FLA_Error FLA_Gemm_hh_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var6.c:15
FLA_Error FLA_Gemm_hh_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var1.c:13
FLA_Error FLA_Gemm_hh_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var3.c:15
FLA_Error FLA_Gemm_hh_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var3.c:13
FLA_Error FLA_Gemm_hh_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var4.c:15
FLA_Error FLA_Gemm_hh_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var2.c:15
FLA_Error FLA_Gemm_hh_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var4.c:15
FLA_Error FLA_Gemm_hh_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hh_unb_var1.c:15
FLA_Error FLA_Gemm_hh_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var5.c:13
FLA_Error FLA_Gemm_hh_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var2.c:15
FLA_Error FLA_Gemm_hh_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh_blk_var6.c:15
FLA_Error FLA_Gemm_hh_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:43

References FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_task(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), and FLA_Gemm_hh_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_hn()

FLA_Error FLA_Gemm_hn ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_hn_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_hn_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_hn_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_hn_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_hn_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_hn_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_hn_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_hn_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_hn_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_hn_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_hn_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_hn_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_hn_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_hn_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var6.c:15
FLA_Error FLA_Gemm_hn_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var5.c:13
FLA_Error FLA_Gemm_hn_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var1.c:13
FLA_Error FLA_Gemm_hn_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var3.c:13
FLA_Error FLA_Gemm_hn_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var3.c:15
FLA_Error FLA_Gemm_hn_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var2.c:15
FLA_Error FLA_Gemm_hn_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var5.c:15
FLA_Error FLA_Gemm_hn_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var4.c:15
FLA_Error FLA_Gemm_hn_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn_blk_var4.c:15
FLA_Error FLA_Gemm_hn_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var2.c:15
FLA_Error FLA_Gemm_hn_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var6.c:15
FLA_Error FLA_Gemm_hn_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_hn_unb_var1.c:15
FLA_Error FLA_Gemm_hn_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:48

References FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_hn_task(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var3(), FLA_Gemm_hn_unb_var4(), FLA_Gemm_hn_unb_var5(), and FLA_Gemm_hn_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_ht()

FLA_Error FLA_Gemm_ht ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_ht_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_ht_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_ht_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_ht_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_ht_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_ht_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_ht_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_ht_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_ht_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_ht_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_ht_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_ht_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_ht_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_ht_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var3.c:15
FLA_Error FLA_Gemm_ht_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var3.c:13
FLA_Error FLA_Gemm_ht_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var5.c:13
FLA_Error FLA_Gemm_ht_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var6.c:15
FLA_Error FLA_Gemm_ht_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var2.c:15
FLA_Error FLA_Gemm_ht_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var1.c:15
FLA_Error FLA_Gemm_ht_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var5.c:15
FLA_Error FLA_Gemm_ht_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var4.c:15
FLA_Error FLA_Gemm_ht_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_ht_unb_var6.c:15
FLA_Error FLA_Gemm_ht_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var2.c:15
FLA_Error FLA_Gemm_ht_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var4.c:15
FLA_Error FLA_Gemm_ht_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht_blk_var1.c:13
FLA_Error FLA_Gemm_ht_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:53

References FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_task(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), and FLA_Gemm_ht_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_internal()

FLA_Error FLA_Gemm_internal ( FLA_Trans  transa,
FLA_Trans  transb,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
17 {
18  FLA_Error r_val = FLA_SUCCESS;
19 
20  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
21  FLA_Gemm_internal_check( transa, transb, alpha, A, B, beta, C, 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_Gemm_internal( transa,
29  transb,
30  alpha,
31  *FLASH_OBJ_PTR_AT( A ),
32  *FLASH_OBJ_PTR_AT( B ),
33  beta,
34  *FLASH_OBJ_PTR_AT( C ),
36  }
37  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
38  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
40  {
41  // Enqueue
42  ENQUEUE_FLASH_Gemm( transa, transb, alpha, A, B, beta, C, 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_gemm_cntl_blas;
52  }
53 
54  // Parameter combinations
55  if ( transa == FLA_NO_TRANSPOSE )
56  {
57  if ( transb == FLA_NO_TRANSPOSE )
58  r_val = FLA_Gemm_nn( alpha, A, B, beta, C, cntl );
59  else if ( transb == FLA_TRANSPOSE )
60  r_val = FLA_Gemm_nt( alpha, A, B, beta, C, cntl );
61  else if ( transb == FLA_CONJ_NO_TRANSPOSE )
62  r_val = FLA_Gemm_nc( alpha, A, B, beta, C, cntl );
63  else if ( transb == FLA_CONJ_TRANSPOSE )
64  r_val = FLA_Gemm_nh( alpha, A, B, beta, C, cntl );
65  }
66  else if ( transa == FLA_TRANSPOSE )
67  {
68  if ( transb == FLA_NO_TRANSPOSE )
69  r_val = FLA_Gemm_tn( alpha, A, B, beta, C, cntl );
70  else if ( transb == FLA_TRANSPOSE )
71  r_val = FLA_Gemm_tt( alpha, A, B, beta, C, cntl );
72  else if ( transb == FLA_CONJ_NO_TRANSPOSE )
73  r_val = FLA_Gemm_tc( alpha, A, B, beta, C, cntl );
74  else if ( transb == FLA_CONJ_TRANSPOSE )
75  r_val = FLA_Gemm_th( alpha, A, B, beta, C, cntl );
76  }
77  else if ( transa == FLA_CONJ_NO_TRANSPOSE )
78  {
79  if ( transb == FLA_NO_TRANSPOSE )
80  r_val = FLA_Gemm_cn( alpha, A, B, beta, C, cntl );
81  else if ( transb == FLA_TRANSPOSE )
82  r_val = FLA_Gemm_ct( alpha, A, B, beta, C, cntl );
83  else if ( transb == FLA_CONJ_NO_TRANSPOSE )
84  r_val = FLA_Gemm_cc( alpha, A, B, beta, C, cntl );
85  else if ( transb == FLA_CONJ_TRANSPOSE )
86  r_val = FLA_Gemm_ch( alpha, A, B, beta, C, cntl );
87  }
88  else if ( transa == FLA_CONJ_TRANSPOSE )
89  {
90  if ( transb == FLA_NO_TRANSPOSE )
91  r_val = FLA_Gemm_hn( alpha, A, B, beta, C, cntl );
92  else if ( transb == FLA_TRANSPOSE )
93  r_val = FLA_Gemm_ht( alpha, A, B, beta, C, cntl );
94  else if ( transb == FLA_CONJ_NO_TRANSPOSE )
95  r_val = FLA_Gemm_hc( alpha, A, B, beta, C, cntl );
96  else if ( transb == FLA_CONJ_TRANSPOSE )
97  r_val = FLA_Gemm_hh( alpha, A, B, beta, C, cntl );
98  }
99  }
100 
101  return r_val;
102 }
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Gemm_cn(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cn.c:13
FLA_Error FLA_Gemm_tt(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt.c:13
FLA_Error FLA_Gemm_cc(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_cc.c:13
FLA_Error FLA_Gemm_nc(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc.c:13
FLA_Error FLA_Gemm_hn(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hn.c:13
FLA_Error FLA_Gemm_nt(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt.c:13
FLA_Error FLA_Gemm_tn(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn.c:13
FLA_Error FLA_Gemm_ch(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ch.c:13
FLA_Error FLA_Gemm_ct(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ct.c:13
FLA_Error FLA_Gemm_tc(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc.c:13
FLA_Error FLA_Gemm_nh(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh.c:13
FLA_Error FLA_Gemm_ht(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_ht.c:13
FLA_Error FLA_Gemm_hh(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hh.c:13
FLA_Error FLA_Gemm_nn(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn.c:13
FLA_Error FLA_Gemm_th(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th.c:13
FLA_Error FLA_Gemm_hc(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_hc.c:13
FLA_Error FLA_Gemm_internal(FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_internal.c:16
fla_gemm_t * flash_gemm_cntl_blas
Definition: FLASH_Gemm_cntl_init.c:15
fla_gemm_t * flash_gemm_cntl_mm_op
Definition: FLASH_Gemm_cntl_init.c:18
FLA_Error FLA_Gemm_internal_check(FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_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

References FLA_Check_error_level(), FLA_Gemm_cc(), FLA_Gemm_ch(), FLA_Gemm_cn(), FLA_Gemm_ct(), FLA_Gemm_hc(), FLA_Gemm_hh(), FLA_Gemm_hn(), FLA_Gemm_ht(), FLA_Gemm_internal(), FLA_Gemm_internal_check(), FLA_Gemm_nc(), FLA_Gemm_nh(), FLA_Gemm_nn(), FLA_Gemm_nt(), FLA_Gemm_tc(), FLA_Gemm_th(), FLA_Gemm_tn(), FLA_Gemm_tt(), FLA_Obj_elemtype(), flash_gemm_cntl_blas, flash_gemm_cntl_mm_op, and FLASH_Queue_get_enabled().

Referenced by FLA_Apply_CAQ2_UT_lhfc_blk_var1(), 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_CAQR2_UT_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_u_blk_var2(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Gemm(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_internal(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_QR2_UT_blk_var1(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_u_blk_var2(), and FLASH_Gemm().

◆ FLA_Gemm_nc()

FLA_Error FLA_Gemm_nc ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_nc_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_nc_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_nc_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_nc_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_nc_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_nc_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_nc_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_nc_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_nc_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_nc_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_nc_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_nc_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_nc_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_nc_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var6.c:15
FLA_Error FLA_Gemm_nc_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var1.c:15
FLA_Error FLA_Gemm_nc_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var2.c:15
FLA_Error FLA_Gemm_nc_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var5.c:13
FLA_Error FLA_Gemm_nc_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var4.c:15
FLA_Error FLA_Gemm_nc_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var3.c:13
FLA_Error FLA_Gemm_nc_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var6.c:15
FLA_Error FLA_Gemm_nc_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var3.c:15
FLA_Error FLA_Gemm_nc_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nc_blk_var1.c:13
FLA_Error FLA_Gemm_nc_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var5.c:15
FLA_Error FLA_Gemm_nc_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var4.c:15
FLA_Error FLA_Gemm_nc_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nc_unb_var2.c:15
FLA_Error FLA_Gemm_nc_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:58

References FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_task(), FLA_Gemm_nc_unb_var1(), FLA_Gemm_nc_unb_var2(), FLA_Gemm_nc_unb_var3(), FLA_Gemm_nc_unb_var4(), FLA_Gemm_nc_unb_var5(), and FLA_Gemm_nc_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_nh()

FLA_Error FLA_Gemm_nh ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_nh_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_nh_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_nh_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_nh_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_nh_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_nh_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_nh_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_nh_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_nh_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_nh_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_nh_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_nh_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_nh_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_nh_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var4.c:15
FLA_Error FLA_Gemm_nh_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var6.c:15
FLA_Error FLA_Gemm_nh_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var3.c:13
FLA_Error FLA_Gemm_nh_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var3.c:15
FLA_Error FLA_Gemm_nh_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var6.c:15
FLA_Error FLA_Gemm_nh_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var5.c:13
FLA_Error FLA_Gemm_nh_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var1.c:13
FLA_Error FLA_Gemm_nh_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var1.c:15
FLA_Error FLA_Gemm_nh_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var4.c:15
FLA_Error FLA_Gemm_nh_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nh_blk_var2.c:15
FLA_Error FLA_Gemm_nh_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var2.c:15
FLA_Error FLA_Gemm_nh_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nh_unb_var5.c:15
FLA_Error FLA_Gemm_nh_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:63

References FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nh_task(), FLA_Gemm_nh_unb_var1(), FLA_Gemm_nh_unb_var2(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nh_unb_var5(), and FLA_Gemm_nh_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_nn()

FLA_Error FLA_Gemm_nn ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_nn_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_nn_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_nn_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_nn_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_nn_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_nn_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_nn_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_nn_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_nn_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_nn_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_nn_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_nn_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_nn_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_nn_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var6.c:15
FLA_Error FLA_Gemm_nn_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var6.c:15
FLA_Error FLA_Gemm_nn_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var1.c:15
FLA_Error FLA_Gemm_nn_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var4.c:15
FLA_Error FLA_Gemm_nn_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var1.c:13
FLA_Error FLA_Gemm_nn_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var3.c:13
FLA_Error FLA_Gemm_nn_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var2.c:15
FLA_Error FLA_Gemm_nn_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var2.c:15
FLA_Error FLA_Gemm_nn_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var5.c:15
FLA_Error FLA_Gemm_nn_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nn_unb_var3.c:15
FLA_Error FLA_Gemm_nn_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var5.c:13
FLA_Error FLA_Gemm_nn_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nn_blk_var4.c:15
FLA_Error FLA_Gemm_nn_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:68

References FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_task(), FLA_Gemm_nn_unb_var1(), FLA_Gemm_nn_unb_var2(), FLA_Gemm_nn_unb_var3(), FLA_Gemm_nn_unb_var4(), FLA_Gemm_nn_unb_var5(), and FLA_Gemm_nn_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_nt()

FLA_Error FLA_Gemm_nt ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_nt_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_nt_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_nt_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_nt_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_nt_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_nt_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_nt_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_nt_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_nt_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_nt_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_nt_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_nt_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_nt_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_nt_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var3.c:13
FLA_Error FLA_Gemm_nt_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var6.c:15
FLA_Error FLA_Gemm_nt_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var1.c:13
FLA_Error FLA_Gemm_nt_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var3.c:15
FLA_Error FLA_Gemm_nt_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var1.c:15
FLA_Error FLA_Gemm_nt_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var4.c:15
FLA_Error FLA_Gemm_nt_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var2.c:15
FLA_Error FLA_Gemm_nt_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var5.c:15
FLA_Error FLA_Gemm_nt_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var2.c:15
FLA_Error FLA_Gemm_nt_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_nt_unb_var6.c:15
FLA_Error FLA_Gemm_nt_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var4.c:15
FLA_Error FLA_Gemm_nt_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_nt_blk_var5.c:13
FLA_Error FLA_Gemm_nt_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:73

References FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_nt_task(), FLA_Gemm_nt_unb_var1(), FLA_Gemm_nt_unb_var2(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_nt_unb_var5(), and FLA_Gemm_nt_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_tc()

FLA_Error FLA_Gemm_tc ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_tc_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_tc_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_tc_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_tc_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_tc_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_tc_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_tc_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_tc_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_tc_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_tc_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_tc_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_tc_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_tc_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_tc_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var3.c:15
FLA_Error FLA_Gemm_tc_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var2.c:15
FLA_Error FLA_Gemm_tc_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var5.c:15
FLA_Error FLA_Gemm_tc_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var4.c:15
FLA_Error FLA_Gemm_tc_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var4.c:15
FLA_Error FLA_Gemm_tc_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var1.c:15
FLA_Error FLA_Gemm_tc_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var6.c:15
FLA_Error FLA_Gemm_tc_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var2.c:15
FLA_Error FLA_Gemm_tc_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var3.c:13
FLA_Error FLA_Gemm_tc_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var1.c:13
FLA_Error FLA_Gemm_tc_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tc_unb_var6.c:15
FLA_Error FLA_Gemm_tc_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tc_blk_var5.c:13
FLA_Error FLA_Gemm_tc_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:78

References FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_tc_task(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var3(), FLA_Gemm_tc_unb_var4(), FLA_Gemm_tc_unb_var5(), and FLA_Gemm_tc_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_th()

FLA_Error FLA_Gemm_th ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_th_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_th_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_th_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_th_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_th_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_th_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_th_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_th_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_th_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_th_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_th_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_th_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_th_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_th_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var4.c:15
FLA_Error FLA_Gemm_th_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var5.c:15
FLA_Error FLA_Gemm_th_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var1.c:13
FLA_Error FLA_Gemm_th_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var1.c:15
FLA_Error FLA_Gemm_th_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var5.c:13
FLA_Error FLA_Gemm_th_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var4.c:15
FLA_Error FLA_Gemm_th_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var6.c:15
FLA_Error FLA_Gemm_th_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var3.c:15
FLA_Error FLA_Gemm_th_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var2.c:15
FLA_Error FLA_Gemm_th_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var6.c:15
FLA_Error FLA_Gemm_th_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_th_unb_var2.c:15
FLA_Error FLA_Gemm_th_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_th_blk_var3.c:13
FLA_Error FLA_Gemm_th_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:83

References FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_task(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), and FLA_Gemm_th_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_tn()

FLA_Error FLA_Gemm_tn ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_tn_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_tn_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_tn_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_tn_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_tn_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_tn_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_tn_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_tn_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_tn_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_tn_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_tn_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_tn_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_tn_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_tn_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var4.c:15
FLA_Error FLA_Gemm_tn_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var3.c:13
FLA_Error FLA_Gemm_tn_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var1.c:15
FLA_Error FLA_Gemm_tn_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var5.c:15
FLA_Error FLA_Gemm_tn_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var1.c:13
FLA_Error FLA_Gemm_tn_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var6.c:15
FLA_Error FLA_Gemm_tn_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var2.c:15
FLA_Error FLA_Gemm_tn_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var4.c:15
FLA_Error FLA_Gemm_tn_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var6.c:15
FLA_Error FLA_Gemm_tn_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tn_blk_var5.c:13
FLA_Error FLA_Gemm_tn_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var3.c:15
FLA_Error FLA_Gemm_tn_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tn_unb_var2.c:15
FLA_Error FLA_Gemm_tn_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:88

References FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tn_task(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var3(), FLA_Gemm_tn_unb_var4(), FLA_Gemm_tn_unb_var5(), and FLA_Gemm_tn_unb_var6().

Referenced by FLA_Gemm_internal().

◆ FLA_Gemm_tt()

FLA_Error FLA_Gemm_tt ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C,
fla_gemm_t cntl 
)
14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18  {
19  r_val = FLA_Gemm_tt_task( alpha, A, B, beta, C, cntl );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
22  {
23  r_val = FLA_Gemm_tt_blk_var1( alpha, A, B, beta, C, cntl );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
27  {
28  r_val = FLA_Gemm_tt_blk_var2( alpha, A, B, beta, C, cntl );
29  }
30 #endif
31  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
32  {
33  r_val = FLA_Gemm_tt_blk_var3( alpha, A, B, beta, C, cntl );
34  }
35 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
36  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
37  {
38  r_val = FLA_Gemm_tt_blk_var4( alpha, A, B, beta, C, cntl );
39  }
40 #endif
41  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
42  {
43  r_val = FLA_Gemm_tt_blk_var5( alpha, A, B, beta, C, cntl );
44  }
45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
46  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
47  {
48  r_val = FLA_Gemm_tt_blk_var6( alpha, A, B, beta, C, cntl );
49  }
50 #endif
51 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
53  {
54  r_val = FLA_Gemm_tt_unb_var1( alpha, A, B, beta, C );
55  }
56  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
57  {
58  r_val = FLA_Gemm_tt_unb_var2( alpha, A, B, beta, C );
59  }
60  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
61  {
62  r_val = FLA_Gemm_tt_unb_var3( alpha, A, B, beta, C );
63  }
64  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
65  {
66  r_val = FLA_Gemm_tt_unb_var4( alpha, A, B, beta, C );
67  }
68  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
69  {
70  r_val = FLA_Gemm_tt_unb_var5( alpha, A, B, beta, C );
71  }
72  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT6 )
73  {
74  r_val = FLA_Gemm_tt_unb_var6( alpha, A, B, beta, C );
75  }
76 #endif
77  else
78  {
79  r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  }
81 
82  return r_val;
83 }
FLA_Error FLA_Gemm_tt_unb_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var4.c:15
FLA_Error FLA_Gemm_tt_unb_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var3.c:15
FLA_Error FLA_Gemm_tt_blk_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var2.c:15
FLA_Error FLA_Gemm_tt_blk_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var1.c:13
FLA_Error FLA_Gemm_tt_unb_var1(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var1.c:15
FLA_Error FLA_Gemm_tt_unb_var2(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var2.c:15
FLA_Error FLA_Gemm_tt_unb_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var5.c:15
FLA_Error FLA_Gemm_tt_unb_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Gemm_tt_unb_var6.c:15
FLA_Error FLA_Gemm_tt_blk_var4(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var4.c:15
FLA_Error FLA_Gemm_tt_blk_var3(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var3.c:13
FLA_Error FLA_Gemm_tt_blk_var5(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var5.c:13
FLA_Error FLA_Gemm_tt_blk_var6(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_tt_blk_var6.c:15
FLA_Error FLA_Gemm_tt_task(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_gemm_t *cntl)
Definition: FLA_Gemm_task.c:93

References FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_task(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), and FLA_Gemm_tt_unb_var6().

Referenced by FLA_Gemm_internal().