46 LAPACK_zhseqr( &job, &compz, &n, &ilo, &ihi, h, &ldh, w, z, &ldz, work,
70 &ldz_t, work, &lwork, &info );
71 return (info < 0) ? (info - 1) : info;
95 LAPACK_zhseqr( &job, &compz, &n, &ilo, &ihi, h_t, &ldh_t, w, z_t,
96 &ldz_t, work, &lwork, &info );
void LAPACK_zhseqr(char *job, char *compz, lapack_int *n, lapack_int *ilo, lapack_int *ihi, lapack_complex_double *h, lapack_int *ldh, lapack_complex_double *w, lapack_complex_double *z, lapack_int *ldz, lapack_complex_double *work, lapack_int *lwork, lapack_int *info)
#define lapack_complex_double
#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
lapack_int LAPACKE_zhseqr_work(int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double *h, lapack_int ldh, lapack_complex_double *w, lapack_complex_double *z, lapack_int ldz, lapack_complex_double *work, lapack_int lwork)
void LAPACKE_zge_trans(int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout)