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 void bl1_sswapv(int n, float *x, int incx, float *y, int incy)
Definition: bl1_swapv.c:13
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
void * FLA_Obj_buffer_at_view(FLA_Obj obj)
Definition: FLA_Query.c:215
void bl1_dswapv(int n, double *x, int incx, double *y, int incy)
Definition: bl1_swapv.c:23
Definition: FLA_type_defs.h:158
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
void bl1_cswapv(int n, scomplex *x, int incx, scomplex *y, int incy)
Definition: bl1_swapv.c:33
Definition: blis_type_defs.h:132
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_zswapv(int n, dcomplex *x, int incx, dcomplex *y, int incy)
Definition: bl1_swapv.c:43
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
int i
Definition: bl1_axmyv2.c:145
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137