libflame  revision_anchor
Functions
FLA_Apply_G_rf_blk_var6b.c File Reference

(r)

Functions

FLA_Error FLA_Apply_G_rf_blk_var6b (FLA_Obj G, FLA_Obj A, dim_t b_alg)
 
FLA_Error FLA_Apply_G_rf_bls_var6b (int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, float *buff_A, int rs_A, int cs_A, int b_alg)
 
FLA_Error FLA_Apply_G_rf_bld_var6b (int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, double *buff_A, int rs_A, int cs_A, int b_alg)
 
FLA_Error FLA_Apply_G_rf_blc_var6b (int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, scomplex *buff_A, int rs_A, int cs_A, int b_alg)
 
FLA_Error FLA_Apply_G_rf_blz_var6b (int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, dcomplex *buff_A, int rs_A, int cs_A, int b_alg)
 

Function Documentation

◆ FLA_Apply_G_rf_blc_var6b()

FLA_Error FLA_Apply_G_rf_blc_var6b ( int  k_G,
int  m_A,
int  n_A,
int  i_k,
scomplex buff_G,
int  rs_G,
int  cs_G,
scomplex buff_A,
int  rs_A,
int  cs_A,
int  b_alg 
)

Referenced by FLA_Apply_G_rf_blk_var6b().

174 {
175  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
176 
177  return FLA_SUCCESS;
178 }

◆ FLA_Apply_G_rf_bld_var6b()

FLA_Error FLA_Apply_G_rf_bld_var6b ( int  k_G,
int  m_A,
int  n_A,
int  i_k,
dcomplex buff_G,
int  rs_G,
int  cs_G,
double *  buff_A,
int  rs_A,
int  cs_A,
int  b_alg 
)

References FLA_Apply_G_rf_asd_var6b(), and i.

Referenced by FLA_Apply_G_rf_blk_var6b().

142 {
143  int i;
144  int b = 0;
145 
146  for ( i = 0; i < m_A; i += b )
147  {
148  double* A1 = buff_A + (0 )*cs_A + (i )*rs_A;
149  int m_behind = i;
150  int m_ahead = max( 0, m_A - i );
151 
152  b = min( b_alg, m_ahead );
153 
154  //FLA_Apply_G_rf_opd_var6b( k_G,
156  b,
157  n_A,
158  i_k,
159  m_behind,
160  buff_G, rs_G, cs_G,
161  A1, rs_A, cs_A );
162  }
163 
164  return FLA_SUCCESS;
165 }
FLA_Error FLA_Apply_G_rf_asd_var6b(int k_G, int m_A, int n_A, int i_k, int iTL, dcomplex *buff_G, int rs_G, int cs_G, double *buff_A, int rs_A, int cs_A)
Definition: FLA_Apply_G_rf_asm_var6b.c:131
int i
Definition: bl1_axmyv2.c:145

◆ FLA_Apply_G_rf_blk_var6b()

FLA_Error FLA_Apply_G_rf_blk_var6b ( FLA_Obj  G,
FLA_Obj  A,
dim_t  b_alg 
)

References FLA_Apply_G_rf_blc_var6b(), FLA_Apply_G_rf_bld_var6b(), FLA_Apply_G_rf_bls_var6b(), FLA_Apply_G_rf_blz_var6b(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_length(), FLA_Obj_row_stride(), and FLA_Obj_width().

14 {
15  FLA_Datatype datatype;
16  int k_G, m_A, n_A;
17  int rs_G, cs_G;
18  int rs_A, cs_A;
19 
20  datatype = FLA_Obj_datatype( A );
21 
22  k_G = FLA_Obj_width( G );
23  m_A = FLA_Obj_length( A );
24  n_A = FLA_Obj_width( A );
25 
26  rs_G = FLA_Obj_row_stride( G );
27  cs_G = FLA_Obj_col_stride( G );
28 
29  rs_A = FLA_Obj_row_stride( A );
30  cs_A = FLA_Obj_col_stride( A );
31 
32  switch ( datatype )
33  {
34  case FLA_FLOAT:
35  {
36  scomplex* buff_G = ( scomplex* ) FLA_COMPLEX_PTR( G );
37  float* buff_A = ( float* ) FLA_FLOAT_PTR( A );
38 
40  m_A,
41  n_A,
42  0,
43  buff_G, rs_G, cs_G,
44  buff_A, rs_A, cs_A,
45  b_alg );
46 
47  break;
48  }
49 
50  case FLA_DOUBLE:
51  {
52  dcomplex* buff_G = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( G );
53  double* buff_A = ( double* ) FLA_DOUBLE_PTR( A );
54 
56  m_A,
57  n_A,
58  0,
59  buff_G, rs_G, cs_G,
60  buff_A, rs_A, cs_A,
61  b_alg );
62 
63  break;
64  }
65 
66  case FLA_COMPLEX:
67  {
68  scomplex* buff_G = ( scomplex* ) FLA_COMPLEX_PTR( G );
69  scomplex* buff_A = ( scomplex* ) FLA_COMPLEX_PTR( A );
70 
72  m_A,
73  n_A,
74  0,
75  buff_G, rs_G, cs_G,
76  buff_A, rs_A, cs_A,
77  b_alg );
78 
79  break;
80  }
81 
82  case FLA_DOUBLE_COMPLEX:
83  {
84  dcomplex* buff_G = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( G );
85  dcomplex* buff_A = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( A );
86 
88  m_A,
89  n_A,
90  0,
91  buff_G, rs_G, cs_G,
92  buff_A, rs_A, cs_A,
93  b_alg );
94 
95  break;
96  }
97  }
98 
99  return FLA_SUCCESS;
100 }
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
FLA_Error FLA_Apply_G_rf_blz_var6b(int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, dcomplex *buff_A, int rs_A, int cs_A, int b_alg)
Definition: FLA_Apply_G_rf_blk_var6b.c:180
FLA_Error FLA_Apply_G_rf_blc_var6b(int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, scomplex *buff_A, int rs_A, int cs_A, int b_alg)
Definition: FLA_Apply_G_rf_blk_var6b.c:167
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
FLA_Error FLA_Apply_G_rf_bld_var6b(int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, double *buff_A, int rs_A, int cs_A, int b_alg)
Definition: FLA_Apply_G_rf_blk_var6b.c:135
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
Definition: blis_type_defs.h:132
FLA_Error FLA_Apply_G_rf_bls_var6b(int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, float *buff_A, int rs_A, int cs_A, int b_alg)
Definition: FLA_Apply_G_rf_blk_var6b.c:103
int FLA_Datatype
Definition: FLA_type_defs.h:49
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137

◆ FLA_Apply_G_rf_bls_var6b()

FLA_Error FLA_Apply_G_rf_bls_var6b ( int  k_G,
int  m_A,
int  n_A,
int  i_k,
scomplex buff_G,
int  rs_G,
int  cs_G,
float *  buff_A,
int  rs_A,
int  cs_A,
int  b_alg 
)

References FLA_Apply_G_rf_ass_var6b(), and i.

Referenced by FLA_Apply_G_rf_blk_var6b().

110 {
111  int i;
112  int b = 0;
113 
114  for ( i = 0; i < m_A; i += b )
115  {
116  float* A1 = buff_A + (0 )*cs_A + (i )*rs_A;
117  int m_behind = i;
118  int m_ahead = max( 0, m_A - i );
119 
120  b = min( b_alg, m_ahead );
121 
122  //FLA_Apply_G_rf_ops_var6b( k_G,
124  b,
125  n_A,
126  i_k,
127  m_behind,
128  buff_G, rs_G, cs_G,
129  A1, rs_A, cs_A );
130  }
131 
132  return FLA_SUCCESS;
133 }
FLA_Error FLA_Apply_G_rf_ass_var6b(int k_G, int m_A, int n_A, int i_k, int iTL, scomplex *buff_G, int rs_G, int cs_G, float *buff_A, int rs_A, int cs_A)
Definition: FLA_Apply_G_rf_asm_var6b.c:118
int i
Definition: bl1_axmyv2.c:145

◆ FLA_Apply_G_rf_blz_var6b()

FLA_Error FLA_Apply_G_rf_blz_var6b ( int  k_G,
int  m_A,
int  n_A,
int  i_k,
dcomplex buff_G,
int  rs_G,
int  cs_G,
dcomplex buff_A,
int  rs_A,
int  cs_A,
int  b_alg 
)

Referenced by FLA_Apply_G_rf_blk_var6b().

187 {
188  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
189 
190  return FLA_SUCCESS;
191 }