50 #ifndef LAPACK_DISABLE_NAN_CHECK
64 info =
LAPACKE_dgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt,
65 ldvt, &work_query, lwork, iwork );
77 info =
LAPACKE_dgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt,
78 ldvt, work, lwork, iwork );
#define LAPACK_WORK_MEMORY_ERROR
lapack_logical LAPACKE_dge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const double *a, lapack_int lda)
#define LAPACKE_malloc(size)
lapack_int LAPACKE_dgesdd_work(int matrix_layout, char jobz, lapack_int m, lapack_int n, double *a, lapack_int lda, double *s, double *u, lapack_int ldu, double *vt, lapack_int ldvt, double *work, lapack_int lwork, lapack_int *iwork)
void LAPACKE_xerbla(const char *name, lapack_int info)