52 #ifndef LAPACK_DISABLE_NAN_CHECK
66 ldu, vt, ldvt, &work_query, lwork, rwork );
80 ldu, vt, ldvt, work, lwork, rwork );
82 for( i=0; i<
MIN(m,n)-1; i++ ) {
lapack_logical LAPACKE_zge_nancheck(int matrix_order, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda)
lapack_int LAPACKE_zgesvd(int matrix_order, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_double *a, lapack_int lda, double *s, lapack_complex_double *u, lapack_int ldu, lapack_complex_double *vt, lapack_int ldvt, double *superb)
#define LAPACKE_malloc(size)
#define lapack_complex_double
#define LAPACK_WORK_MEMORY_ERROR
lapack_int LAPACKE_zgesvd_work(int matrix_order, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_double *a, lapack_int lda, double *s, lapack_complex_double *u, lapack_int ldu, lapack_complex_double *vt, lapack_int ldvt, lapack_complex_double *work, lapack_int lwork, double *rwork)
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)