42 if ( dt_A == FLA_CONSTANT )
44 if ( dt_B == FLA_FLOAT )
46 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
47 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
55 else if ( dt_B == FLA_DOUBLE )
57 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
58 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
66 else if ( dt_B == FLA_COMPLEX )
77 else if ( dt_B == FLA_DOUBLE_COMPLEX )
89 else if ( dt_A == FLA_INT )
91 int* buff_A = (
int * ) FLA_INT_PTR( A );
92 int* buff_B = (
int * ) FLA_INT_PTR( B );
100 else if ( dt_A == FLA_FLOAT )
102 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
104 if ( dt_B == FLA_FLOAT )
106 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
112 buff_B, rs_B, cs_B );
114 else if ( dt_B == FLA_DOUBLE )
116 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
122 buff_B, rs_B, cs_B );
124 else if ( dt_B == FLA_COMPLEX )
132 buff_B, rs_B, cs_B );
134 else if ( dt_B == FLA_DOUBLE_COMPLEX )
142 buff_B, rs_B, cs_B );
145 else if ( dt_A == FLA_DOUBLE )
147 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
149 if ( dt_B == FLA_FLOAT )
151 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
157 buff_B, rs_B, cs_B );
159 else if ( dt_B == FLA_DOUBLE )
161 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
167 buff_B, rs_B, cs_B );
169 else if ( dt_B == FLA_COMPLEX )
177 buff_B, rs_B, cs_B );
179 else if ( dt_B == FLA_DOUBLE_COMPLEX )
187 buff_B, rs_B, cs_B );
190 else if ( dt_A == FLA_COMPLEX )
194 if ( dt_B == FLA_FLOAT )
196 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
202 buff_B, rs_B, cs_B );
204 else if ( dt_B == FLA_DOUBLE )
206 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
212 buff_B, rs_B, cs_B );
214 else if ( dt_B == FLA_COMPLEX )
222 buff_B, rs_B, cs_B );
224 else if ( dt_B == FLA_DOUBLE_COMPLEX )
232 buff_B, rs_B, cs_B );
235 else if ( dt_A == FLA_DOUBLE_COMPLEX )
239 if ( dt_B == FLA_FLOAT )
241 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
247 buff_B, rs_B, cs_B );
249 else if ( dt_B == FLA_DOUBLE )
251 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
257 buff_B, rs_B, cs_B );
259 else if ( dt_B == FLA_COMPLEX )
267 buff_B, rs_B, cs_B );
269 else if ( dt_B == FLA_DOUBLE_COMPLEX )
277 buff_B, rs_B, cs_B );
void bl1_icopymt(trans1_t trans, int m, int n, int *a, int a_rs, int a_cs, int *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:13
void bl1_dzcopymt(trans1_t trans, int m, int n, double *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:1032
void bl1_sccopymt(trans1_t trans, int m, int n, float *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:562
void FLA_Param_map_flame_to_blis_trans(FLA_Trans trans, trans1_t *blis_trans)
Definition: FLA_Param.c:245
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
void bl1_zccopymt(trans1_t trans, int m, int n, dcomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:1300
void bl1_dcopymt(trans1_t trans, int m, int n, double *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:148
trans1_t
Definition: blis_type_defs.h:52
void bl1_czcopymt(trans1_t trans, int m, int n, scomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:1234
void bl1_cdcopymt(trans1_t trans, int m, int n, scomplex *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:964
void bl1_szcopymt(trans1_t trans, int m, int n, float *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:696
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Error FLA_Copyt_check(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyt_check.c:13
void bl1_sdcopymt(trans1_t trans, int m, int n, float *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:428
void bl1_ccopymt(trans1_t trans, int m, int n, scomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:215
void bl1_zscopymt(trans1_t trans, int m, int n, dcomplex *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:762
Definition: blis_type_defs.h:132
void bl1_zcopymt(trans1_t trans, int m, int n, dcomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:286
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
void bl1_dscopymt(trans1_t trans, int m, int n, double *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:494
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_scopymt(trans1_t trans, int m, int n, float *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:81
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
void bl1_cscopymt(trans1_t trans, int m, int n, scomplex *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:628
void bl1_dccopymt(trans1_t trans, int m, int n, double *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:898
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137
void bl1_zdcopymt(trans1_t trans, int m, int n, dcomplex *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymt.c:1098