50 #ifndef LAPACK_DISABLE_NAN_CHECK
58 ldu, vt, ldvt, &work_query, lwork );
71 ldu, vt, ldvt, work, lwork );
73 for( i=0; i<
MIN(m,n)-1; i++ ) {
74 superb[i] = work[i+1];
lapack_int LAPACKE_sgesvd(int matrix_order, char jobu, char jobvt, lapack_int m, lapack_int n, float *a, lapack_int lda, float *s, float *u, lapack_int ldu, float *vt, lapack_int ldvt, float *superb)
lapack_int LAPACKE_sgesvd_work(int matrix_order, char jobu, char jobvt, lapack_int m, lapack_int n, float *a, lapack_int lda, float *s, float *u, lapack_int ldu, float *vt, lapack_int ldvt, float *work, lapack_int lwork)
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_sge_nancheck(int matrix_order, lapack_int m, lapack_int n, const float *a, lapack_int lda)
#define LAPACK_WORK_MEMORY_ERROR
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)