16 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES
27 char blas_compq =
'I';
51 lwork = max( 1, 3*min_m_n*min_m_n + 4*min_m_n );
63 float* buff_d = (
float * ) FLA_FLOAT_PTR( d );
64 float* buff_e = (
float * ) FLA_FLOAT_PTR( e );
65 float* buff_U = (
float * ) FLA_FLOAT_PTR( U );
66 float* buff_V = (
float * ) FLA_FLOAT_PTR( V );
67 float* buff_Q = (
float * ) NULL;
68 float* buff_IQ = (
float * ) NULL;
69 float* buff_work = (
float * ) FLA_FLOAT_PTR( work );
70 int* buff_iwork = (
int * ) FLA_INT_PTR( iwork );
90 double* buff_d = (
double * ) FLA_DOUBLE_PTR( d );
91 double* buff_e = (
double * ) FLA_DOUBLE_PTR( e );
92 double* buff_U = (
double * ) FLA_DOUBLE_PTR( U );
93 double* buff_V = (
double * ) FLA_DOUBLE_PTR( V );
94 double* buff_Q = (
double * ) NULL;
95 double* buff_IQ = (
double * ) NULL;
96 double* buff_work = (
double * ) FLA_DOUBLE_PTR( work );
97 int* buff_iwork = (
int * ) FLA_INT_PTR( iwork );
121 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
int F77_sbdsdc(char *uplo, char *compq, int *n, float *d, float *e, float *u, int *ldu, float *vt, int *ldvt, float *q, float *iq, float *work, int *iwork, int *info)
int F77_dbdsdc(char *uplo, char *compq, int *n, double *d, double *e, double *u, int *ldu, double *vt, int *ldvt, double *q, double *iq, double *work, int *iwork, int *info)
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_length(FLA_Obj obj)
Definition: FLA_Query.c:116
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
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
void FLA_Param_map_flame_to_netlib_uplo(FLA_Uplo uplo, void *blas_uplo)
Definition: FLA_Param.c:47
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
Definition: FLA_type_defs.h:159