18 FLA_Obj* blocks = FLASH_OBJ_PTR_AT( A );
24 #ifdef FLA_ENABLE_WINDOWS_BUILD
25 int* m = (
int* ) _alloca( m_blocks *
sizeof(
int ) );
26 int* cs = (
int* ) _alloca( m_blocks *
sizeof(
int ) );
28 int* m = (
int* ) malloc( m_blocks *
sizeof(
int ) );
29 int* cs = (
int* ) malloc( m_blocks *
sizeof(
int ) );
34 if ( side != FLA_LEFT || trans != FLA_NO_TRANSPOSE )
35 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
41 #ifdef FLA_ENABLE_WINDOWS_BUILD
42 float** buffer = (
float** ) _alloca( m_blocks *
sizeof(
float* ) );
44 float** buffer = (
float** ) malloc( m_blocks *
sizeof(
float* ) );
47 for (
i = 0;
i < m_blocks;
i++ )
55 for ( j = 0; j < m_A; j++ )
63 while ( ipiv >= m[
i] )
71 buffer[
i] + ipiv, cs[
i] );
74 #ifdef FLA_ENABLE_WINDOWS_BUILD
82 #ifdef FLA_ENABLE_WINDOWS_BUILD
83 double** buffer = (
double** ) _alloca( m_blocks *
sizeof(
double* ) );
85 double** buffer = (
double** ) malloc( m_blocks *
sizeof(
double* ) );
88 for (
i = 0;
i < m_blocks;
i++ )
96 for ( j = 0; j < m_A; j++ )
104 while ( ipiv >= m[
i] )
111 buffer[0] + j, cs[0],
112 buffer[
i] + ipiv, cs[
i] );
115 #ifdef FLA_ENABLE_WINDOWS_BUILD
123 #ifdef FLA_ENABLE_WINDOWS_BUILD
129 for (
i = 0;
i < m_blocks;
i++ )
137 for ( j = 0; j < m_A; j++ )
145 while ( ipiv >= m[
i] )
152 buffer[0] + j, cs[0],
153 buffer[
i] + ipiv, cs[
i] );
156 #ifdef FLA_ENABLE_WINDOWS_BUILD
162 case FLA_DOUBLE_COMPLEX:
164 #ifdef FLA_ENABLE_WINDOWS_BUILD
170 for (
i = 0;
i < m_blocks;
i++ )
178 for ( j = 0; j < m_A; j++ )
186 while ( ipiv >= m[
i] )
193 buffer[0] + j, cs[0],
194 buffer[
i] + ipiv, cs[
i] );
197 #ifdef FLA_ENABLE_WINDOWS_BUILD
205 #ifdef FLA_ENABLE_WINDOWS_BUILD
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
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
void * FLA_Obj_buffer_at_view(FLA_Obj obj)
Definition: FLA_Query.c:215
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_dswapv(int n, double *x, int incx, double *y, int incy)
Definition: bl1_swapv.c:23
void bl1_zswapv(int n, dcomplex *x, int incx, dcomplex *y, int incy)
Definition: bl1_swapv.c:43
void bl1_sswapv(int n, float *x, int incx, float *y, int incy)
Definition: bl1_swapv.c:13
void bl1_cswapv(int n, scomplex *x, int incx, scomplex *y, int incy)
Definition: bl1_swapv.c:33
Definition: FLA_type_defs.h:159
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133