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 )
102 else if ( dt_A == FLA_FLOAT )
104 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
106 if ( dt_B == FLA_FLOAT )
108 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
114 buff_B, rs_B, cs_B );
116 else if ( dt_B == FLA_DOUBLE )
118 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
124 buff_B, rs_B, cs_B );
126 else if ( dt_B == FLA_COMPLEX )
134 buff_B, rs_B, cs_B );
136 else if ( dt_B == FLA_DOUBLE_COMPLEX )
144 buff_B, rs_B, cs_B );
147 else if ( dt_A == FLA_DOUBLE )
149 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
151 if ( dt_B == FLA_FLOAT )
153 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
159 buff_B, rs_B, cs_B );
161 else if ( dt_B == FLA_DOUBLE )
163 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
169 buff_B, rs_B, cs_B );
171 else if ( dt_B == FLA_COMPLEX )
179 buff_B, rs_B, cs_B );
181 else if ( dt_B == FLA_DOUBLE_COMPLEX )
189 buff_B, rs_B, cs_B );
192 else if ( dt_A == FLA_COMPLEX )
196 if ( dt_B == FLA_FLOAT )
198 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
204 buff_B, rs_B, cs_B );
206 else if ( dt_B == FLA_DOUBLE )
208 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
214 buff_B, rs_B, cs_B );
216 else if ( dt_B == FLA_COMPLEX )
224 buff_B, rs_B, cs_B );
226 else if ( dt_B == FLA_DOUBLE_COMPLEX )
234 buff_B, rs_B, cs_B );
237 else if ( dt_A == FLA_DOUBLE_COMPLEX )
241 if ( dt_B == FLA_FLOAT )
243 float *buff_B = (
float * ) FLA_FLOAT_PTR( B );
249 buff_B, rs_B, cs_B );
251 else if ( dt_B == FLA_DOUBLE )
253 double *buff_B = (
double * ) FLA_DOUBLE_PTR( B );
259 buff_B, rs_B, cs_B );
261 else if ( dt_B == FLA_COMPLEX )
269 buff_B, rs_B, cs_B );
271 else if ( dt_B == FLA_DOUBLE_COMPLEX )
279 buff_B, rs_B, cs_B );
FLA_Error FLA_Copyr_check(FLA_Uplo uplo, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyr_check.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
void FLA_Param_map_flame_to_blis_uplo(FLA_Uplo uplo, uplo1_t *blis_uplo)
Definition: FLA_Param.c:285
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_szcopymr(uplo1_t uplo, int m, int n, float *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:594
void bl1_zccopymr(uplo1_t uplo, int m, int n, dcomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:1180
void bl1_zscopymr(uplo1_t uplo, int m, int n, dcomplex *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:658
void bl1_cscopymr(uplo1_t uplo, int m, int n, scomplex *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:528
void bl1_ccopymr(uplo1_t uplo, int m, int n, scomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:139
void bl1_zdcopymr(uplo1_t uplo, int m, int n, dcomplex *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:984
void bl1_dscopymr(uplo1_t uplo, int m, int n, double *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:398
void bl1_dcopymr(uplo1_t uplo, int m, int n, double *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:76
void bl1_cdcopymr(uplo1_t uplo, int m, int n, scomplex *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:854
void bl1_dzcopymr(uplo1_t uplo, int m, int n, double *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:920
void bl1_dccopymr(uplo1_t uplo, int m, int n, double *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:790
void bl1_sccopymr(uplo1_t uplo, int m, int n, float *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:464
void bl1_zcopymr(uplo1_t uplo, int m, int n, dcomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:202
void bl1_czcopymr(uplo1_t uplo, int m, int n, scomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:1116
void bl1_sdcopymr(uplo1_t uplo, int m, int n, float *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:334
void bl1_scopymr(uplo1_t uplo, int m, int n, float *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_copymr.c:13
uplo1_t
Definition: blis_type_defs.h:61
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133