47 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
48 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
54 (
float * ) A_gpu, ldim_A,
55 (
float * ) x_gpu, inc_x,
57 (
float * ) y_gpu, inc_y );
64 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
65 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
67 cublasDgemv( blas_transa,
71 (
double * ) A_gpu, ldim_A,
72 (
double * ) x_gpu, inc_x,
74 (
double * ) y_gpu, inc_y );
81 cuComplex *buff_alpha = ( cuComplex * ) FLA_COMPLEX_PTR( alpha );
82 cuComplex *buff_beta = ( cuComplex * ) FLA_COMPLEX_PTR( beta );
84 cublasCgemv( blas_transa,
88 ( cuComplex * ) A_gpu, ldim_A,
89 ( cuComplex * ) x_gpu, inc_x,
91 ( cuComplex * ) y_gpu, inc_y );
96 case FLA_DOUBLE_COMPLEX:
98 cuDoubleComplex *buff_alpha = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( alpha );
99 cuDoubleComplex *buff_beta = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( beta );
101 cublasZgemv( blas_transa,
105 ( cuDoubleComplex * ) A_gpu, ldim_A,
106 ( cuDoubleComplex * ) x_gpu, inc_x,
108 ( cuDoubleComplex * ) y_gpu, inc_y );
FLA_Error FLA_Gemv_check(FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y)
Definition: FLA_Gemv_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_length(FLA_Obj obj)
Definition: FLA_Query.c:116
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
void FLA_Param_map_flame_to_netlib_trans(FLA_Trans trans, void *blas_trans)
Definition: FLA_Param.c:15
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49