44 if ( dt_A == FLA_CONSTANT )
46 if ( dt_B == FLA_FLOAT )
48 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
49 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 );
70 else if ( dt_B == FLA_COMPLEX )
82 else if ( dt_B == FLA_DOUBLE_COMPLEX )
109 else if ( dt_A == FLA_FLOAT )
111 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
113 if ( dt_B == FLA_FLOAT )
115 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
122 buff_B, rs_B, cs_B );
124 else if ( dt_B == FLA_DOUBLE )
126 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
133 buff_B, rs_B, cs_B );
135 else if ( dt_B == FLA_COMPLEX )
144 buff_B, rs_B, cs_B );
146 else if ( dt_B == FLA_DOUBLE_COMPLEX )
155 buff_B, rs_B, cs_B );
158 else if ( dt_A == FLA_DOUBLE )
160 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
162 if ( dt_B == FLA_FLOAT )
164 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
171 buff_B, rs_B, cs_B );
173 else if ( dt_B == FLA_DOUBLE )
175 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
182 buff_B, rs_B, cs_B );
184 else if ( dt_B == FLA_COMPLEX )
193 buff_B, rs_B, cs_B );
195 else if ( dt_B == FLA_DOUBLE_COMPLEX )
204 buff_B, rs_B, cs_B );
207 else if ( dt_A == FLA_COMPLEX )
211 if ( dt_B == FLA_FLOAT )
213 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
220 buff_B, rs_B, cs_B );
222 else if ( dt_B == FLA_DOUBLE )
224 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
231 buff_B, rs_B, cs_B );
233 else if ( dt_B == FLA_COMPLEX )
242 buff_B, rs_B, cs_B );
244 else if ( dt_B == FLA_DOUBLE_COMPLEX )
253 buff_B, rs_B, cs_B );
256 else if ( dt_A == FLA_DOUBLE_COMPLEX )
260 if ( dt_B == FLA_FLOAT )
262 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
269 buff_B, rs_B, cs_B );
271 else if ( dt_B == FLA_DOUBLE )
273 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
280 buff_B, rs_B, cs_B );
282 else if ( dt_B == FLA_COMPLEX )
291 buff_B, rs_B, cs_B );
293 else if ( dt_B == FLA_DOUBLE_COMPLEX )
302 buff_B, rs_B, cs_B );
uplo1_t
Definition: blis_type_defs.h:60
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_zdcopymrt(uplo1_t uplo, 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_copymrt.c:1814
void bl1_cdcopymrt(uplo1_t uplo, 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_copymrt.c:1390
void bl1_dscopymrt(uplo1_t uplo, 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_copymrt.c:860
trans1_t
Definition: blis_type_defs.h:52
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
void bl1_zccopymrt(uplo1_t uplo, 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_copymrt.c:1920
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_zscopymrt(uplo1_t uplo, 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_copymrt.c:1708
void bl1_dzcopymrt(uplo1_t uplo, 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_copymrt.c:1178
void bl1_dccopymrt(uplo1_t uplo, 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_copymrt.c:1072
void bl1_dcopymrt(uplo1_t uplo, 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_copymrt.c:118
void FLA_Param_map_flame_to_blis_uplo(FLA_Uplo uplo, uplo1_t *blis_uplo)
Definition: FLA_Param.c:285
void bl1_czcopymrt(uplo1_t uplo, 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_copymrt.c:1602
void bl1_scopymrt(uplo1_t uplo, 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_copymrt.c:13
Definition: blis_type_defs.h:132
void bl1_cscopymrt(uplo1_t uplo, 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_copymrt.c:1284
void bl1_sdcopymrt(uplo1_t uplo, 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_copymrt.c:542
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_szcopymrt(uplo1_t uplo, 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_copymrt.c:754
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
void bl1_zcopymrt(uplo1_t uplo, 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_copymrt.c:328
FLA_Error FLA_Copyrt_check(FLA_Uplo uplo, FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyrt_check.c:13
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
void bl1_ccopymrt(uplo1_t uplo, 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_copymrt.c:223
Definition: blis_type_defs.h:137
void bl1_sccopymrt(uplo1_t uplo, 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_copymrt.c:648