16 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES
37 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
38 int *buff_p = (
int * ) FLA_INT_PTR( p );
51 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
52 int *buff_p = (
int * ) FLA_INT_PTR( p );
66 int *buff_p = (
int * ) FLA_INT_PTR( p );
77 case FLA_DOUBLE_COMPLEX:
80 int *buff_p = (
int * ) FLA_INT_PTR( p );
96 if ( info > 0 ) r_val = info - 1;
97 else r_val = FLA_SUCCESS;
100 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
FLA_Error FLA_LU_piv_check(FLA_Obj A, FLA_Obj p)
Definition: FLA_LU_piv_check.c:13
int F77_zgetrf(int *m, int *n, dcomplex *a, int *lda, int *ipiv, int *info)
int F77_cgetrf(int *m, int *n, scomplex *a, int *lda, int *ipiv, int *info)
int F77_dgetrf(int *m, int *n, double *a, int *lda, int *ipiv, int *info)
int F77_sgetrf(int *m, int *n, float *a, int *lda, int *ipiv, int *info)
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
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
int FLA_Datatype
Definition: FLA_type_defs.h:49
FLA_Error FLA_Shift_pivots_to(FLA_Pivot_type ptype, FLA_Obj p)
Definition: FLA_Shift_pivots_to.c:13
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133