50 LAPACK_zheevr( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu,
51 &abstol, m, w, z, &ldz, isuppz, work, &lwork, rwork,
52 &lrwork, iwork, &liwork, &info );
76 if( liwork == -1 || lrwork == -1 || lwork == -1 ) {
77 LAPACK_zheevr( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il,
78 &iu, &abstol, m, w, z, &ldz_t, isuppz, work, &lwork,
79 rwork, &lrwork, iwork, &liwork, &info );
80 return (info < 0) ? (info - 1) : info;
92 ldz_t *
MAX(1,ncols_z) );
101 LAPACK_zheevr( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il,
102 &iu, &abstol, m, w, z_t, &ldz_t, isuppz, work, &lwork,
103 rwork, &lrwork, iwork, &liwork, &info );