15 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES 38 buff_p = FLA_INT_PTR( p );
48 #ifdef FLA_ENABLE_WINDOWS_BUILD 49 pivots_lapack = (
int * ) _alloca( m_p *
sizeof(
int ) );
51 pivots_lapack = (
int * ) alloca( m_p *
sizeof(
int ) );
54 for ( i = 0; i < m_p; i++ )
56 pivots_lapack[
i ] = buff_p[
i ] + i + 1;
63 float* buff_A = (
float * ) FLA_FLOAT_PTR( A );
76 double* buff_A = (
double * ) FLA_DOUBLE_PTR( A );
100 case FLA_DOUBLE_COMPLEX:
115 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
int F77_zlaswp(int *n, dcomplex *a, int *lda, int *k1, int *k2, int *ipiv, int *incx)
int F77_slaswp(int *n, float *a, int *lda, int *k1, int *k2, int *ipiv, int *incx)
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
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
Definition: blis_type_defs.h:132
FLA_Error FLA_Apply_pivots_check(FLA_Side side, FLA_Trans trans, FLA_Obj p, FLA_Obj A)
Definition: FLA_Apply_pivots_check.c:13
int F77_dlaswp(int *n, double *a, int *lda, int *k1, int *k2, int *ipiv, int *incx)
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_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
int i
Definition: bl1_axmyv2.c:145
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
int F77_claswp(int *n, scomplex *a, int *lda, int *k1, int *k2, int *ipiv, int *incx)
Definition: blis_type_defs.h:137