46{
48 double* rwork = NULL;
52 return -1;
53 }
54#ifndef LAPACK_DISABLE_NAN_CHECK
56
58 return -8;
59 }
61 return -10;
62 }
64 return -15;
65 }
68 return -14;
69 }
70 }
71 if( nparams>0 ) {
73 return -25;
74 }
75 }
78 return -13;
79 }
80 }
82 return -17;
83 }
84 }
85#endif
86
88 if( rwork == NULL ) {
90 goto exit_level_0;
91 }
94 if( work == NULL ) {
96 goto exit_level_1;
97 }
98
100 ab, ldab, afb, ldafb, ipiv, r, c, b, ldb, x,
101 ldx, rcond, berr, n_err_bnds, err_bnds_norm,
102 err_bnds_comp, nparams, params, work, rwork );
103
105exit_level_1:
107exit_level_0:
110 }
111 return info;
112}
#define lapack_complex_double
#define LAPACK_WORK_MEMORY_ERROR
lapack_int LAPACKE_zgbrfsx_work(int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double *ab, lapack_int ldab, const lapack_complex_double *afb, lapack_int ldafb, const lapack_int *ipiv, const double *r, const double *c, const lapack_complex_double *b, lapack_int ldb, lapack_complex_double *x, lapack_int ldx, double *rcond, double *berr, lapack_int n_err_bnds, double *err_bnds_norm, double *err_bnds_comp, lapack_int nparams, double *params, lapack_complex_double *work, double *rwork)
int LAPACKE_get_nancheck(void)
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
lapack_logical LAPACKE_zge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda)
lapack_logical LAPACKE_d_nancheck(lapack_int n, const double *x, lapack_int incx)
lapack_logical LAPACKE_zgb_nancheck(int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double *ab, lapack_int ldab)
1.9.5