16 #ifdef FLA_ENABLE_EXTERNAL_LAPACK_INTERFACES 50 lrwork = max( 1, 4 * min_m_n - 4 );
59 float* buff_d = (
float * ) FLA_FLOAT_PTR( d );
60 float* buff_e = (
float * ) FLA_FLOAT_PTR( e );
61 float* buff_U = (
float * ) FLA_FLOAT_PTR( U );
62 float* buff_V = (
float * ) FLA_FLOAT_PTR( V );
63 float* buff_C = (
float * ) NULL;
64 float* buff_rwork = (
float * ) FLA_FLOAT_PTR( rwork );
84 double* buff_d = (
double * ) FLA_DOUBLE_PTR( d );
85 double* buff_e = (
double * ) FLA_DOUBLE_PTR( e );
86 double* buff_U = (
double * ) FLA_DOUBLE_PTR( U );
87 double* buff_V = (
double * ) FLA_DOUBLE_PTR( V );
88 double* buff_C = (
double * ) NULL;
89 double* buff_rwork = (
double * ) FLA_DOUBLE_PTR( rwork );
109 float* buff_d = (
float * ) FLA_FLOAT_PTR( d );
110 float* buff_e = (
float * ) FLA_FLOAT_PTR( e );
114 float* buff_rwork = (
float * ) FLA_FLOAT_PTR( rwork );
132 case FLA_DOUBLE_COMPLEX:
134 double* buff_d = (
double * ) FLA_DOUBLE_PTR( d );
135 double* buff_e = (
double * ) FLA_DOUBLE_PTR( e );
139 double* buff_rwork = (
double * ) FLA_DOUBLE_PTR( rwork );
162 FLA_Check_error_code( FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED );
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_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
int F77_zbdsqr(char *uplo, int *n, int *ncvt, int *nru, int *ncc, double *d, double *e, dcomplex *vt, int *ldvt, dcomplex *u, int *ldu, dcomplex *c, int *ldc, double *rwork, int *info)
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
Definition: FLA_type_defs.h:158
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
int F77_sbdsqr(char *uplo, int *n, int *ncvt, int *nru, int *ncc, float *d, float *e, float *vt, int *ldvt, float *u, int *ldu, float *c, int *ldc, float *rwork, int *info)
Definition: blis_type_defs.h:132
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137
int FLA_Datatype
Definition: FLA_type_defs.h:49
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
int F77_cbdsqr(char *uplo, int *n, int *ncvt, int *nru, int *ncc, float *d, float *e, scomplex *vt, int *ldvt, scomplex *u, int *ldu, scomplex *c, int *ldc, float *rwork, int *info)
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
int F77_dbdsqr(char *uplo, int *n, int *ncvt, int *nru, int *ncc, double *d, double *e, double *vt, int *ldvt, double *u, int *ldu, double *c, int *ldc, double *rwork, int *info)
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137