53 #ifndef LAPACK_DISABLE_NAN_CHECK
70 a, lda, b, ldb, tola, tolb, k, l, u, ldu,
71 v, ldv, q, ldq, iwork, tau, &work_query,
94 b, ldb, tola, tolb, k, l, u, ldu, v, ldv, q,
95 ldq, iwork, tau, work, lwork );
#define LAPACK_WORK_MEMORY_ERROR
lapack_int LAPACKE_dggsvp3(int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double *a, lapack_int lda, double *b, lapack_int ldb, double tola, double tolb, lapack_int *k, lapack_int *l, double *u, lapack_int ldu, double *v, lapack_int ldv, double *q, lapack_int ldq)
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_logical LAPACKE_d_nancheck(lapack_int n, const double *x, lapack_int incx)
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_int LAPACKE_dggsvp3_work(int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double *a, lapack_int lda, double *b, lapack_int ldb, double tola, double tolb, lapack_int *k, lapack_int *l, double *u, lapack_int ldu, double *v, lapack_int ldv, double *q, lapack_int ldq, lapack_int *iwork, double *tau, double *work, lapack_int lwork)