42 if ( trans == FLA_NO_TRANSPOSE )
55 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
56 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
58 cublasSsyrk( blas_uplo,
63 (
float * ) A_gpu, ldim_A,
65 (
float * ) C_gpu, ldim_C );
72 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
73 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
75 cublasDsyrk( blas_uplo,
80 (
double * ) A_gpu, ldim_A,
82 (
double * ) C_gpu, ldim_C );
89 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
90 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
92 cublasCherk( blas_uplo,
97 ( cuComplex * ) A_gpu, ldim_A,
99 ( cuComplex * ) C_gpu, ldim_C );
104 case FLA_DOUBLE_COMPLEX:
106 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
107 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
109 cublasZherk( blas_uplo,
114 ( cuDoubleComplex * ) A_gpu, ldim_A,
116 ( cuDoubleComplex * ) C_gpu, ldim_C );
void FLA_Param_map_flame_to_netlib_uplo(FLA_Uplo uplo, void *blas_uplo)
Definition: FLA_Param.c:47
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
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
FLA_Error FLA_Herk_check(FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Herk_check.c:13
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116