45 float* buff_alpha = (
float* ) FLA_FLOAT_PTR( alpha );
46 float* buff_A_gpu = (
float* ) A_gpu;
48 for ( i = 0; i < n_A; i++ )
51 buff_A_gpu + i * ldim_A, inc_A );
58 double* buff_alpha = (
double* ) FLA_DOUBLE_PTR( alpha );
59 double* buff_A_gpu = (
double* ) A_gpu;
61 for ( i = 0; i < n_A; i++ )
64 buff_A_gpu + i * ldim_A, inc_A );
71 cuComplex* buff_alpha = ( cuComplex* ) FLA_COMPLEX_PTR( alpha );
72 cuComplex* buff_A_gpu = ( cuComplex* ) A_gpu;
74 for ( i = 0; i < n_A; i++ )
77 buff_A_gpu + i * ldim_A, inc_A );
82 case FLA_DOUBLE_COMPLEX:
84 cuDoubleComplex* buff_alpha = ( cuDoubleComplex* ) FLA_DOUBLE_COMPLEX_PTR( alpha );
85 cuDoubleComplex* buff_A_gpu = ( cuDoubleComplex* ) A_gpu;
87 for ( i = 0; i < n_A; i++ )
90 buff_A_gpu + i * ldim_A, inc_A );
FLA_Error FLA_Scal_check(FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Scal_check.c:13
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
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_Bool FLA_Obj_equals(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:507
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