130 #ifndef LAPACK_DISABLE_NAN_CHECK
140 if( iwork == NULL ) {
144 lwork =
MAX( lwork, 1 );
149 if( !want_u && !want_v && !want_sce ) lwork =
MAX( lwork, 2*n+1 );
150 if( !want_u && !want_v && want_sce ) lwork =
MAX( lwork, n*n+3*n );
155 if( cwork == NULL ) {
159 lrwork =
MAX3( lrwork, 7, n+2*m );
161 if( rwork == NULL ) {
167 jobp, m, n, a, lda, sva, u, ldu, v, ldv, cwork,
168 lwork, rwork, lrwork, iwork );
170 for( i=0; i<7; i++ ) {
173 for( i=0; i<3; i++ ) {
#define lapack_complex_float
#define LAPACK_WORK_MEMORY_ERROR
int LAPACKE_get_nancheck(void)
lapack_int LAPACKE_cgejsv_work(int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, lapack_complex_float *a, lapack_int lda, float *sva, lapack_complex_float *u, lapack_int ldu, lapack_complex_float *v, lapack_int ldv, lapack_complex_float *cwork, lapack_int lwork, float *work, lapack_int lrwork, lapack_int *iwork)
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_logical LAPACKE_cge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda)