47 float* buff_A_gpu = (
float* ) A_gpu;
48 float* buff_B_gpu = (
float* ) B_gpu;
50 for ( i = 0; i < n_B; i++ )
52 buff_A_gpu + i * ldim_A, inc_A,
53 buff_B_gpu + i * ldim_B, inc_B );
60 double* buff_A_gpu = (
double* ) A_gpu;
61 double* buff_B_gpu = (
double* ) B_gpu;
63 for ( i = 0; i < n_B; i++ )
65 buff_A_gpu + i * ldim_A, inc_A,
66 buff_B_gpu + i * ldim_B, inc_B );
73 cuComplex* buff_A_gpu = ( cuComplex* ) A_gpu;
74 cuComplex* buff_B_gpu = ( cuComplex* ) B_gpu;
76 for ( i = 0; i < n_B; i++ )
78 buff_A_gpu + i * ldim_A, inc_A,
79 buff_B_gpu + i * ldim_B, inc_B );
84 case FLA_DOUBLE_COMPLEX:
86 cuDoubleComplex* buff_A_gpu = ( cuDoubleComplex* ) A_gpu;
87 cuDoubleComplex* buff_B_gpu = ( cuDoubleComplex* ) B_gpu;
89 for ( i = 0; i < n_B; i++ )
91 buff_A_gpu + i * ldim_A, inc_A,
92 buff_B_gpu + i * ldim_B, inc_B );
FLA_Error FLA_Copy_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Copy_check.c:13
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
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Datatype
Definition: FLA_type_defs.h:49
int i
Definition: bl1_axmyv2.c:145
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116