40 float *buff_x = (
float * ) FLA_FLOAT_PTR( x );
41 float *buff_asum_x = (
float * ) FLA_FLOAT_PTR( asum_x );
52 double *buff_x = (
double * ) FLA_DOUBLE_PTR( x );
53 double *buff_asum_x = (
double * ) FLA_DOUBLE_PTR( asum_x );
64 if ( dt_asum == FLA_FLOAT )
67 float *buff_asum_x = (
float * ) FLA_FLOAT_PTR( asum_x );
73 else if ( dt_asum == FLA_COMPLEX )
80 &(buff_asum_x->
real) );
81 buff_asum_x->
imag = 0.0F;
87 case FLA_DOUBLE_COMPLEX:
89 if ( dt_asum == FLA_DOUBLE )
92 double *buff_asum_x = (
double * ) FLA_DOUBLE_PTR( asum_x );
98 else if ( dt_asum == FLA_DOUBLE_COMPLEX )
105 &(buff_asum_x->
real) );
106 buff_asum_x->
imag = 0.0;
void bl1_zasum(int n, dcomplex *x, int incx, double *norm)
Definition: bl1_asum.c:46
float real
Definition: blis_type_defs.h:134
double imag
Definition: blis_type_defs.h:139
FLA_Error FLA_Asum_check(FLA_Obj x, FLA_Obj asum_x)
Definition: FLA_Asum_check.c:13
void bl1_dasum(int n, double *x, int incx, double *norm)
Definition: bl1_asum.c:24
double real
Definition: blis_type_defs.h:139
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
FLA_Error FLA_Set(FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Set.c:13
Definition: blis_type_defs.h:132
void bl1_sasum(int n, float *x, int incx, float *norm)
Definition: bl1_asum.c:13
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137
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_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
void bl1_casum(int n, scomplex *x, int incx, float *norm)
Definition: bl1_asum.c:35
float imag
Definition: blis_type_defs.h:134
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
Definition: blis_type_defs.h:137