50 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
51 float *buff_beta = (
float * ) FLA_FLOAT_PTR( beta );
53 cublasSsymm( blas_side,
58 (
float * ) A_gpu, ldim_A,
59 (
float * ) B_gpu, ldim_B,
61 (
float * ) C_gpu, ldim_C );
68 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
69 double *buff_beta = (
double * ) FLA_DOUBLE_PTR( beta );
71 cublasDsymm( blas_side,
76 (
double * ) A_gpu, ldim_A,
77 (
double * ) B_gpu, ldim_B,
79 (
double * ) C_gpu, ldim_C );
86 cuComplex *buff_alpha = ( cuComplex * ) FLA_COMPLEX_PTR( alpha );
87 cuComplex *buff_beta = ( cuComplex * ) FLA_COMPLEX_PTR( beta );
89 cublasCsymm( blas_side,
94 ( cuComplex * ) A_gpu, ldim_A,
95 ( cuComplex * ) B_gpu, ldim_B,
97 ( cuComplex * ) C_gpu, ldim_C );
102 case FLA_DOUBLE_COMPLEX:
104 cuDoubleComplex *buff_alpha = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( alpha );
105 cuDoubleComplex *buff_beta = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( beta );
107 cublasZsymm( blas_side,
112 ( cuDoubleComplex * ) A_gpu, ldim_A,
113 ( cuDoubleComplex * ) B_gpu, ldim_B,
115 ( 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_side(FLA_Uplo side, void *blas_side)
Definition: FLA_Param.c:71
FLA_Error FLA_Symm_check(FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
Definition: FLA_Symm_check.c:13
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
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116