45 if ( trans == FLA_NO_TRANSPOSE )
58 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
59 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
61 cublasSsyr2k( blas_uplo,
66 (
float * ) A_gpu, ldim_A,
67 (
float * ) B_gpu, ldim_B,
69 (
float * ) C_gpu, ldim_C );
76 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
77 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
79 cublasDsyr2k( blas_uplo,
84 (
double * ) A_gpu, ldim_A,
85 (
double * ) B_gpu, ldim_B,
87 (
double * ) C_gpu, ldim_C );
94 cuComplex *buff_alpha = ( cuComplex * ) FLA_COMPLEX_PTR( alpha );
95 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
97 cublasCher2k( blas_uplo,
102 ( cuComplex * ) A_gpu, ldim_A,
103 ( cuComplex * ) B_gpu, ldim_B,
105 ( cuComplex * ) C_gpu, ldim_C );
110 case FLA_DOUBLE_COMPLEX:
112 cuDoubleComplex *buff_alpha = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( alpha );
113 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
115 cublasZher2k( blas_uplo,
120 ( cuDoubleComplex * ) A_gpu, ldim_A,
121 ( cuDoubleComplex * ) B_gpu, ldim_B,
123 ( cuDoubleComplex * ) C_gpu, ldim_C );
FLA_Error FLA_Her2k_check(FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Her2k_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
void FLA_Param_map_flame_to_netlib_uplo(FLA_Uplo uplo, void *blas_uplo)
Definition: FLA_Param.c:47
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49