SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LDWORK, WORK2, * INFO) CHARACTER * 1 JOBZ, UPLO COMPLEX A(LDA,*), WORK(*) INTEGER N, LDA, LDWORK, INFO REAL W(*), WORK2(*) SUBROUTINE CHEEV_64( JOBZ, UPLO, N, A, LDA, W, WORK, LDWORK, WORK2, * INFO) CHARACTER * 1 JOBZ, UPLO COMPLEX A(LDA,*), WORK(*) INTEGER*8 N, LDA, LDWORK, INFO REAL W(*), WORK2(*)
SUBROUTINE HEEV( JOBZ, UPLO, [N], A, [LDA], W, [WORK], [LDWORK], * [WORK2], [INFO]) CHARACTER(LEN=1) :: JOBZ, UPLO COMPLEX, DIMENSION(:) :: WORK COMPLEX, DIMENSION(:,:) :: A INTEGER :: N, LDA, LDWORK, INFO REAL, DIMENSION(:) :: W, WORK2 SUBROUTINE HEEV_64( JOBZ, UPLO, [N], A, [LDA], W, [WORK], [LDWORK], * [WORK2], [INFO]) CHARACTER(LEN=1) :: JOBZ, UPLO COMPLEX, DIMENSION(:) :: WORK COMPLEX, DIMENSION(:,:) :: A INTEGER(8) :: N, LDA, LDWORK, INFO REAL, DIMENSION(:) :: W, WORK2
void cheev(char jobz, char uplo, int n, complex *a, int lda, float *w, int *info);
void cheev_64(char jobz, char uplo, long n, complex *a, long lda, float *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.