51 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
53 cublasStrmm( blas_side,
60 (
float * ) A_gpu, ldim_A,
61 (
float * ) B_gpu, ldim_B );
68 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
70 cublasDtrmm( blas_side,
77 (
double * ) A_gpu, ldim_A,
78 (
double * ) B_gpu, ldim_B );
85 cuComplex *buff_alpha = ( cuComplex * ) FLA_COMPLEX_PTR( alpha );
87 cublasCtrmm( blas_side,
94 ( cuComplex * ) A_gpu, ldim_A,
95 ( cuComplex * ) B_gpu, ldim_B );
100 case FLA_DOUBLE_COMPLEX:
102 cuDoubleComplex *buff_alpha = ( cuDoubleComplex * ) FLA_DOUBLE_COMPLEX_PTR( alpha );
104 cublasZtrmm( blas_side,
111 ( cuDoubleComplex * ) A_gpu, ldim_A,
112 ( cuDoubleComplex * ) B_gpu, ldim_B );
FLA_Error FLA_Trmm_check(FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
Definition: FLA_Trmm_check.c:13
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
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
void FLA_Param_map_flame_to_netlib_diag(FLA_Diag diag, void *blas_diag)
Definition: FLA_Param.c:95
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