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 )
174{
175 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
176
177 return FLA_SUCCESS;
178}

Referenced by FLA_Apply_G_rf_blk_var6b().

◆ 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 )
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,
155 FLA_Apply_G_rf_asd_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_Apply_G_rf_asd_var6b
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
i
int i
Definition bl1_axmyv2.c:145

References FLA_Apply_G_rf_asd_var6b(), and i.

Referenced by FLA_Apply_G_rf_blk_var6b().

◆ FLA_Apply_G_rf_blk_var6b()

FLA_Error FLA_Apply_G_rf_blk_var6b ( FLA_Obj G,
FLA_Obj A,
dim_t b_alg )
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
39 FLA_Apply_G_rf_bls_var6b( k_G,
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
55 FLA_Apply_G_rf_bld_var6b( k_G,
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
71 FLA_Apply_G_rf_blc_var6b( k_G,
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
87 FLA_Apply_G_rf_blz_var6b( k_G,
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}
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)
Definition FLA_Apply_G_rf_blk_var6b.c:167
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)
Definition FLA_Apply_G_rf_blk_var6b.c:180
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)
Definition FLA_Apply_G_rf_blk_var6b.c:103
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)
Definition FLA_Apply_G_rf_blk_var6b.c:135
FLA_Obj_width
dim_t FLA_Obj_width(FLA_Obj obj)
Definition FLA_Query.c:123
FLA_Obj_row_stride
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition FLA_Query.c:167
FLA_Obj_length
dim_t FLA_Obj_length(FLA_Obj obj)
Definition FLA_Query.c:116
FLA_Obj_col_stride
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition FLA_Query.c:174
FLA_Obj_datatype
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition FLA_Query.c:13
FLA_Datatype
int FLA_Datatype
Definition FLA_type_defs.h:49
dcomplex
Definition blis_type_defs.h:138
scomplex
Definition blis_type_defs.h:133

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().

◆ 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 )
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,
123 FLA_Apply_G_rf_ass_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_Apply_G_rf_ass_var6b
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

References FLA_Apply_G_rf_ass_var6b(), and i.

Referenced by FLA_Apply_G_rf_blk_var6b().

◆ 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 )
187{
188 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
189
190 return FLA_SUCCESS;
191}

Referenced by FLA_Apply_G_rf_blk_var6b().

Generated on Thu Sep 23 2021 17:46:17 for libflame by doxygen 1.12.0