43{
47 double* rwork = NULL;
52 return -1;
53 }
54#ifndef LAPACK_DISABLE_NAN_CHECK
56
58 return -7;
59 }
61 return -15;
62 }
65 return -11;
66 }
67 }
70 return -12;
71 }
72 }
73 }
74#endif
75
77 ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z,
78 ldz, &work_query, lwork, rwork, iwork, ifail );
79 if( info != 0 ) {
80 goto exit_level_0;
81 }
83
85 if( iwork == NULL ) {
87 goto exit_level_0;
88 }
90 if( rwork == NULL ) {
92 goto exit_level_1;
93 }
96 if( work == NULL ) {
98 goto exit_level_2;
99 }
100
102 ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z,
103 ldz, work, lwork, rwork, iwork, ifail );
104
106exit_level_2:
108exit_level_1:
110exit_level_0:
113 }
114 return info;
115}
#define lapack_complex_double
#define LAPACK_WORK_MEMORY_ERROR
int LAPACKE_get_nancheck(void)
#define LAPACKE_malloc(size)
lapack_int LAPACKE_zhbevx_2stage_work(int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, lapack_complex_double *ab, lapack_int ldab, lapack_complex_double *q, lapack_int ldq, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int *m, double *w, lapack_complex_double *z, lapack_int ldz, lapack_complex_double *work, lapack_int lwork, double *rwork, lapack_int *iwork, lapack_int *ifail)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_logical LAPACKE_zhb_nancheck(int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double *ab, lapack_int ldab)
lapack_logical LAPACKE_d_nancheck(lapack_int n, const double *x, lapack_int incx)
1.9.5