44 float* buff_alpha = (
float* ) FLA_FLOAT_PTR( alpha );
45 float* buff_A_gpu = (
float* ) A_gpu;
46 float* buff_B_gpu = (
float* ) B_gpu;
48 for ( i = 0; i < n_B; i++ )
51 buff_A_gpu + i * ldim_A, inc_A,
52 buff_B_gpu + i * ldim_B, inc_B );
59 double* buff_alpha = (
double* ) FLA_DOUBLE_PTR( alpha );
60 double* buff_A_gpu = (
double* ) A_gpu;
61 double* buff_B_gpu = (
double* ) B_gpu;
63 for ( i = 0; i < n_B; i++ )
66 buff_A_gpu + i * ldim_A, inc_A,
67 buff_B_gpu + i * ldim_B, inc_B );
74 cuComplex* buff_alpha = ( cuComplex* ) FLA_COMPLEX_PTR( alpha );
75 cuComplex* buff_A_gpu = ( cuComplex* ) A_gpu;
76 cuComplex* buff_B_gpu = ( cuComplex* ) B_gpu;
78 for ( i = 0; i < n_B; i++ )
81 buff_A_gpu + i * ldim_A, inc_A,
82 buff_B_gpu + i * ldim_B, inc_B );
87 case FLA_DOUBLE_COMPLEX:
89 cuDoubleComplex* buff_alpha = ( cuDoubleComplex* ) FLA_DOUBLE_COMPLEX_PTR( alpha );
90 cuDoubleComplex* buff_A_gpu = ( cuDoubleComplex* ) A_gpu;
91 cuDoubleComplex* buff_B_gpu = ( cuDoubleComplex* ) B_gpu;
93 for ( i = 0; i < n_B; i++ )
96 buff_A_gpu + i * ldim_A, inc_A,
97 buff_B_gpu + i * ldim_B, inc_B );
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_Axpy_check(FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
Definition: FLA_Axpy_check.c:13
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