44 LAPACK_chpev( &jobz, &uplo, &n, ap, w, z, &ldz, work, rwork, &info );
70 (
MAX(1,n) *
MAX(2,n+1) ) / 2 );
78 LAPACK_chpev( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, rwork,
#define lapack_complex_float
void LAPACKE_cge_trans(int matrix_order, lapack_int m, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout)
#define LAPACKE_malloc(size)
void LAPACK_chpev(char *jobz, char *uplo, lapack_int *n, lapack_complex_float *ap, float *w, lapack_complex_float *z, lapack_int *ldz, lapack_complex_float *work, float *rwork, lapack_int *info)
void LAPACKE_chp_trans(int matrix_order, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out)
lapack_int LAPACKE_chpev_work(int matrix_order, char jobz, char uplo, lapack_int n, lapack_complex_float *ap, float *w, lapack_complex_float *z, lapack_int ldz, lapack_complex_float *work, float *rwork)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
lapack_logical LAPACKE_lsame(char ca, char cb)
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)