54 LAPACK_cggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,
55 alpha, beta, vl, &ldvl, vr, &ldvr, ilo, ihi, lscale,
56 rscale, abnrm, bbnrm, rconde, rcondv, work, &lwork,
57 rwork, iwork, bwork, &info );
93 LAPACK_cggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda_t, b,
94 &ldb_t, alpha, beta, vl, &ldvl_t, vr, &ldvr_t, ilo,
95 ihi, lscale, rscale, abnrm, bbnrm, rconde, rcondv,
96 work, &lwork, rwork, iwork, bwork, &info );
97 return (info < 0) ? (info - 1) : info;
134 LAPACK_cggevx( &balanc, &jobvl, &jobvr, &sense, &n, a_t, &lda_t, b_t,
135 &ldb_t, alpha, beta, vl_t, &ldvl_t, vr_t, &ldvr_t, ilo,
136 ihi, lscale, rscale, abnrm, bbnrm, rconde, rcondv, work,
137 &lwork, rwork, iwork, bwork, &info );
void LAPACKE_cge_trans(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout)
#define lapack_complex_float
#define LAPACKE_malloc(size)
lapack_logical LAPACKE_lsame(char ca, char cb)
void LAPACKE_xerbla(const char *name, lapack_int info)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
void LAPACK_cggevx(char *balanc, char *jobvl, char *jobvr, char *sense, lapack_int *n, lapack_complex_float *a, lapack_int *lda, lapack_complex_float *b, lapack_int *ldb, lapack_complex_float *alpha, lapack_complex_float *beta, lapack_complex_float *vl, lapack_int *ldvl, lapack_complex_float *vr, lapack_int *ldvr, lapack_int *ilo, lapack_int *ihi, float *lscale, float *rscale, float *abnrm, float *bbnrm, float *rconde, float *rcondv, lapack_complex_float *work, lapack_int *lwork, float *rwork, lapack_int *iwork, lapack_logical *bwork, lapack_int *info)