45 if ( dt_A == FLA_CONSTANT )
47 if ( dt_B == FLA_FLOAT )
49 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
50 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
58 else if ( dt_B == FLA_DOUBLE )
60 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
61 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
69 else if ( dt_B == FLA_COMPLEX )
80 else if ( dt_B == FLA_DOUBLE_COMPLEX )
92 else if ( dt_A == FLA_INT )
94 int* buff_A = (
int * ) FLA_INT_PTR( A );
95 int* buff_B = (
int * ) FLA_INT_PTR( B );
101 buff_B, rs_B, cs_B );
103 else if ( dt_A == FLA_FLOAT )
105 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
107 if ( dt_B == FLA_FLOAT )
109 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
115 buff_B, rs_B, cs_B );
117 else if ( dt_B == FLA_DOUBLE )
119 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
125 buff_B, rs_B, cs_B );
127 else if ( dt_B == FLA_COMPLEX )
135 buff_B, rs_B, cs_B );
137 else if ( dt_B == FLA_DOUBLE_COMPLEX )
145 buff_B, rs_B, cs_B );
148 else if ( dt_A == FLA_DOUBLE )
150 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
152 if ( dt_B == FLA_FLOAT )
154 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
160 buff_B, rs_B, cs_B );
162 else if ( dt_B == FLA_DOUBLE )
164 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
170 buff_B, rs_B, cs_B );
172 else if ( dt_B == FLA_COMPLEX )
180 buff_B, rs_B, cs_B );
182 else if ( dt_B == FLA_DOUBLE_COMPLEX )
190 buff_B, rs_B, cs_B );
193 else if ( dt_A == FLA_COMPLEX )
197 if ( dt_B == FLA_FLOAT )
199 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
205 buff_B, rs_B, cs_B );
207 else if ( dt_B == FLA_DOUBLE )
209 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
215 buff_B, rs_B, cs_B );
217 else if ( dt_B == FLA_COMPLEX )
225 buff_B, rs_B, cs_B );
227 else if ( dt_B == FLA_DOUBLE_COMPLEX )
235 buff_B, rs_B, cs_B );
238 else if ( dt_A == FLA_DOUBLE_COMPLEX )
242 if ( dt_B == FLA_FLOAT )
244 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
250 buff_B, rs_B, cs_B );
252 else if ( dt_B == FLA_DOUBLE )
254 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
260 buff_B, rs_B, cs_B );
262 else if ( dt_B == FLA_COMPLEX )
270 buff_B, rs_B, cs_B );
272 else if ( dt_B == FLA_DOUBLE_COMPLEX )
280 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
FLA_Bool FLA_Obj_is_conformal_to(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:438
FLA_Error FLA_Copy_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Copy_check.c:13
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
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