SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LDWORK, WORK2, * INFO) CHARACTER * 1 JOBZ, UPLO DOUBLE COMPLEX A(LDA,*), WORK(*) INTEGER N, LDA, LDWORK, INFO DOUBLE PRECISION W(*), WORK2(*) SUBROUTINE ZHEEV_64( JOBZ, UPLO, N, A, LDA, W, WORK, LDWORK, WORK2, * INFO) CHARACTER * 1 JOBZ, UPLO DOUBLE COMPLEX A(LDA,*), WORK(*) INTEGER*8 N, LDA, LDWORK, INFO DOUBLE PRECISION W(*), WORK2(*)
SUBROUTINE HEEV( JOBZ, UPLO, [N], A, [LDA], W, [WORK], [LDWORK], * [WORK2], [INFO]) CHARACTER(LEN=1) :: JOBZ, UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A INTEGER :: N, LDA, LDWORK, INFO REAL(8), DIMENSION(:) :: W, WORK2 SUBROUTINE HEEV_64( JOBZ, UPLO, [N], A, [LDA], W, [WORK], [LDWORK], * [WORK2], [INFO]) CHARACTER(LEN=1) :: JOBZ, UPLO COMPLEX(8), DIMENSION(:) :: WORK COMPLEX(8), DIMENSION(:,:) :: A INTEGER(8) :: N, LDA, LDWORK, INFO REAL(8), DIMENSION(:) :: W, WORK2
void zheev(char jobz, char uplo, int n, doublecomplex *a, int lda, double *w, int *info);
void zheev_64(char jobz, char uplo, long n, doublecomplex *a, long lda, double *w, long *info);
If LDWORK = -1, then a workspace query is assumed; the routine only calculates the optimal size of the WORK array, returns this value as the first entry of the WORK array, and no error message related to LDWORK is issued by XERBLA.