44{
47 float* work = NULL;
50 return -1;
51 }
52#ifndef LAPACK_DISABLE_NAN_CHECK
54
56 return -6;
57 }
59 return -8;
60 }
62 return -13;
63 }
66 return -12;
67 }
68 }
69 if( nparams>0 ) {
71 return -23;
72 }
73 }
76 return -11;
77 }
78 }
80 return -15;
81 }
82 }
83#endif
84
86 if( iwork == NULL ) {
88 goto exit_level_0;
89 }
91 if( work == NULL ) {
93 goto exit_level_1;
94 }
95
97 af, ldaf, ipiv, r, c, b, ldb, x, ldx, rcond,
98 berr, n_err_bnds, err_bnds_norm, err_bnds_comp,
99 nparams, params, work, iwork );
100
102exit_level_1:
104exit_level_0:
107 }
108 return info;
109}
#define LAPACK_WORK_MEMORY_ERROR
lapack_int LAPACKE_sgerfsx_work(int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const float *a, lapack_int lda, const float *af, lapack_int ldaf, const lapack_int *ipiv, const float *r, const float *c, const float *b, lapack_int ldb, float *x, lapack_int ldx, float *rcond, float *berr, lapack_int n_err_bnds, float *err_bnds_norm, float *err_bnds_comp, lapack_int nparams, float *params, float *work, lapack_int *iwork)
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_s_nancheck(lapack_int n, const float *x, lapack_int incx)
lapack_logical LAPACKE_sge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda)
1.9.5