16 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES
21 int lwork, lrwork, liwork, lisuppz;
22 FLA_Obj work, rwork, iwork, isuppz, abstol;
27 char blas_range =
'A';
62 for (
i = 0;
i < 2; ++
i )
68 if ( datatype == FLA_FLOAT || datatype == FLA_COMPLEX )
70 lwork = ( int ) *FLA_FLOAT_PTR( work );
71 lrwork = ( int ) *FLA_FLOAT_PTR( rwork );
72 liwork = ( int ) *FLA_INT_PTR( iwork );
74 else if ( datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
76 lwork = ( int ) *FLA_DOUBLE_PTR( work );
77 lrwork = ( int ) *FLA_DOUBLE_PTR( rwork );
78 liwork = ( int ) *FLA_INT_PTR( iwork );
94 float* buff_A = (
float* ) FLA_FLOAT_PTR( A );
95 float* buff_l = (
float* ) FLA_FLOAT_PTR( l );
96 float* buff_Z = (
float* ) FLA_FLOAT_PTR( Z );
97 float* buff_work = (
float* ) FLA_FLOAT_PTR( work );
98 float* buff_abstol = (
float* ) FLA_FLOAT_PTR( abstol );
99 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
100 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
123 double* buff_A = (
double* ) FLA_DOUBLE_PTR( A );
124 double* buff_l = (
double* ) FLA_DOUBLE_PTR( l );
125 double* buff_Z = (
double* ) FLA_DOUBLE_PTR( Z );
126 double* buff_work = (
double* ) FLA_DOUBLE_PTR( work );
127 double* buff_abstol = (
double* ) FLA_DOUBLE_PTR( abstol );
128 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
129 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
153 float* buff_l = (
float* ) FLA_FLOAT_PTR( l );
156 float* buff_rwork = (
float* ) FLA_FLOAT_PTR( rwork );
157 float* buff_abstol = (
float* ) FLA_FLOAT_PTR( abstol );
158 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
159 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
181 case FLA_DOUBLE_COMPLEX:
184 double* buff_l = (
double* ) FLA_DOUBLE_PTR( l );
187 double* buff_rwork = (
double* ) FLA_DOUBLE_PTR( rwork );
188 double* buff_abstol = (
double* ) FLA_DOUBLE_PTR( abstol );
189 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
190 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
222 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
FLA_Error FLA_Hevdr_check(FLA_Evd_type jobz, FLA_Uplo uplo, FLA_Obj A, FLA_Obj l, FLA_Obj Z)
Definition: FLA_Hevdr_check.c:13
int F77_zheevr(char *jobz, char *range, char *uplo, int *n, dcomplex *a, int *lda, double *vl, double *vu, int *il, int *iu, double *abstol, int *m, double *w, dcomplex *z, int *ldz, int *isuppz, dcomplex *work, int *lwork, double *rwork, int *lrwork, int *iwork, int *liwork, int *info)
int F77_dsyevr(char *jobz, char *range, char *uplo, int *n, double *a, int *lda, double *vl, double *vu, int *il, int *iu, double *abstol, int *m, double *w, double *z, int *ldz, int *isuppz, double *work, int *lwork, int *iwork, int *liwork, int *info)
int F77_ssyevr(char *jobz, char *range, char *uplo, int *n, float *a, int *lda, float *vl, float *vu, int *il, int *iu, float *abstol, int *m, float *w, float *z, int *ldz, int *isuppz, float *work, int *lwork, int *iwork, int *liwork, int *info)
int F77_cheevr(char *jobz, char *range, char *uplo, int *n, scomplex *a, int *lda, float *vl, float *vu, int *il, int *iu, float *abstol, int *m, float *w, scomplex *z, int *ldz, int *isuppz, scomplex *work, int *lwork, float *rwork, int *lrwork, int *iwork, int *liwork, int *info)
void FLA_Param_map_flame_to_netlib_evd_type(FLA_Evd_type evd_type, void *lapack_evd_type)
Definition: FLA_Param.c:151
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Error FLA_Obj_create(FLA_Datatype datatype, dim_t m, dim_t n, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:55
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400
FLA_Datatype FLA_Obj_datatype_proj_to_real(FLA_Obj A)
Definition: FLA_Query.c:23
FLA_Bool FLA_Obj_is_complex(FLA_Obj A)
Definition: FLA_Query.c:324
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_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588
void FLA_Param_map_flame_to_netlib_uplo(FLA_Uplo uplo, void *blas_uplo)
Definition: FLA_Param.c:47
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
FLA_Error FLA_Mach_params(FLA_Machval machval, FLA_Obj val)
Definition: FLA_Mach_params.c:13
int i
Definition: bl1_axmyv2.c:145
Definition: FLA_type_defs.h:159
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133