38 buff_p = (
int * ) FLA_INT_PTR( p );
45 float* buff_C = (
float * ) FLA_FLOAT_PTR( C );
46 float* buff_E = (
float * ) FLA_FLOAT_PTR( E );
48 for (
i = 0;
i < m_p; ++
i )
50 if ( buff_p[
i ] != 0 )
52 buff_C + 0*cs_C +
i, cs_C,
53 buff_E + 0*cs_E + buff_p[
i ] - ( m_C -
i ), cs_E );
60 double* buff_C = (
double * ) FLA_DOUBLE_PTR( C );
61 double* buff_E = (
double * ) FLA_DOUBLE_PTR( E );
63 for (
i = 0;
i < m_p; ++
i )
65 if ( buff_p[
i ] != 0 )
67 buff_C + 0*cs_C +
i, cs_C,
68 buff_E + 0*cs_E + buff_p[
i ] - ( m_C -
i ), cs_E );
78 for (
i = 0;
i < m_p; ++
i )
80 if ( buff_p[
i ] != 0 )
82 buff_C + 0*cs_C +
i, cs_C,
83 buff_E + 0*cs_E + buff_p[
i ] - ( m_C -
i ), cs_E );
88 case FLA_DOUBLE_COMPLEX:
93 for (
i = 0;
i < m_p; ++
i )
95 if ( buff_p[
i ] != 0 )
97 buff_C + 0*cs_C +
i, cs_C,
98 buff_E + 0*cs_E + buff_p[
i ] - ( m_C -
i ), cs_E );
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
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
int i
Definition: bl1_axmyv2.c:145
void bl1_zswap(int n, dcomplex *x, int incx, dcomplex *y, int incy)
Definition: bl1_swap.c:52
void bl1_dswap(int n, double *x, int incx, double *y, int incy)
Definition: bl1_swap.c:26
void bl1_cswap(int n, scomplex *x, int incx, scomplex *y, int incy)
Definition: bl1_swap.c:39
void bl1_sswap(int n, float *x, int incx, float *y, int incy)
Definition: bl1_swap.c:13
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133