42{
48 float* work = NULL;
50 float work_query;
53 return -1;
54 }
55#ifndef LAPACK_DISABLE_NAN_CHECK
57
59 return -8;
60 }
62 return -10;
63 }
64 }
65#endif
66
70 if( bwork == NULL ) {
72 goto exit_level_0;
73 }
74 }
75
77 sense, n, a, lda, b, ldb, sdim, alphar, alphai,
78 beta, vsl, ldvsl, vsr, ldvsr, rconde, rcondv,
79 &work_query, lwork, &iwork_query, liwork,
80 bwork );
81 if( info != 0 ) {
82 goto exit_level_1;
83 }
84 liwork = iwork_query;
86
88 if( iwork == NULL ) {
90 goto exit_level_1;
91 }
93 if( work == NULL ) {
95 goto exit_level_2;
96 }
97
99 sense, n, a, lda, b, ldb, sdim, alphar, alphai,
100 beta, vsl, ldvsl, vsr, ldvsr, rconde, rcondv,
101 work, lwork, iwork, liwork, bwork );
102
104exit_level_2:
106exit_level_1:
109 }
110exit_level_0:
113 }
114 return info;
115}
lapack_int LAPACKE_sggesx_work(int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_S_SELECT3 selctg, char sense, lapack_int n, float *a, lapack_int lda, float *b, lapack_int ldb, lapack_int *sdim, float *alphar, float *alphai, float *beta, float *vsl, lapack_int ldvsl, float *vsr, lapack_int ldvsr, float *rconde, float *rcondv, float *work, lapack_int lwork, lapack_int *iwork, lapack_int liwork, lapack_logical *bwork)
#define LAPACK_WORK_MEMORY_ERROR
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_sge_nancheck(int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda)
1.9.5