16 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES
20 int lisuppz, lwork, liwork;
60 for (
i = 0;
i < 2; ++
i )
66 if ( datatype == FLA_FLOAT || datatype == FLA_COMPLEX )
68 lwork = ( int ) *FLA_FLOAT_PTR( work );
69 liwork = ( int ) *FLA_INT_PTR( iwork );
71 else if ( datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
73 lwork = ( int ) *FLA_DOUBLE_PTR( work );
74 liwork = ( int ) *FLA_INT_PTR( iwork );
89 float* buff_d = (
float* ) FLA_FLOAT_PTR( d );
90 float* buff_e = (
float* ) FLA_FLOAT_PTR( e );
91 float* buff_l = (
float* ) FLA_FLOAT_PTR( l );
92 float* buff_A = (
float* ) FLA_FLOAT_PTR( A );
93 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
94 float* buff_work = (
float* ) FLA_FLOAT_PTR( work );
95 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
119 double* buff_d = (
double* ) FLA_DOUBLE_PTR( d );
120 double* buff_e = (
double* ) FLA_DOUBLE_PTR( e );
121 double* buff_l = (
double* ) FLA_DOUBLE_PTR( l );
122 double* buff_A = (
double* ) FLA_DOUBLE_PTR( A );
123 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
124 double* buff_work = (
double* ) FLA_DOUBLE_PTR( work );
125 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
149 float* buff_d = (
float* ) FLA_FLOAT_PTR( d );
150 float* buff_e = (
float* ) FLA_FLOAT_PTR( e );
151 float* buff_l = (
float* ) FLA_FLOAT_PTR( l );
153 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
154 float* buff_work = (
float* ) FLA_FLOAT_PTR( work );
155 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
177 case FLA_DOUBLE_COMPLEX:
179 double* buff_d = (
double* ) FLA_DOUBLE_PTR( d );
180 double* buff_e = (
double* ) FLA_DOUBLE_PTR( e );
181 double* buff_l = (
double* ) FLA_DOUBLE_PTR( l );
183 int* buff_isuppz = (
int* ) FLA_INT_PTR( isuppz );
184 double* buff_work = (
double* ) FLA_DOUBLE_PTR( work );
185 int* buff_iwork = (
int* ) FLA_INT_PTR( iwork );
214 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
int F77_sstemr(char *jobz, char *range, int *n, float *d, float *e, int *vl, int *vu, int *il, int *iu, int *m, float *w, float *z, int *ldz, int *nzc, int *isuppz, int *tryrac, float *work, int *lwork, int *iwork, int *liwork, int *info)
int F77_zstemr(char *jobz, char *range, int *n, double *d, double *e, int *vl, int *vu, int *il, int *iu, int *m, double *w, dcomplex *z, int *ldz, int *nzc, int *isuppz, int *tryrac, double *work, int *lwork, int *iwork, int *liwork, int *info)
int F77_dstemr(char *jobz, char *range, int *n, double *d, double *e, int *vl, int *vu, int *il, int *iu, int *m, double *w, double *z, int *ldz, int *nzc, int *isuppz, int *tryrac, double *work, int *lwork, int *iwork, int *liwork, int *info)
int F77_cstemr(char *jobz, char *range, int *n, float *d, float *e, int *vl, int *vu, int *il, int *iu, int *m, float *w, scomplex *z, int *ldz, int *nzc, int *isuppz, int *tryrac, float *work, int *lwork, 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
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588
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
Definition: FLA_type_defs.h:159
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133