SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO) CHARACTER * 1 SIDE, HOWMNY INTEGER N, LDA, LDB, LDVL, LDVR, MM, M, INFO LOGICAL SELECT(*) DOUBLE PRECISION A(LDA,*), B(LDB,*), VL(LDVL,*), VR(LDVR,*), WORK(*) SUBROUTINE DTGEVC_64( SIDE, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, * LDVL, VR, LDVR, MM, M, WORK, INFO) CHARACTER * 1 SIDE, HOWMNY INTEGER*8 N, LDA, LDB, LDVL, LDVR, MM, M, INFO LOGICAL*8 SELECT(*) DOUBLE PRECISION A(LDA,*), B(LDB,*), VL(LDVL,*), VR(LDVR,*), WORK(*)
SUBROUTINE TGEVC( SIDE, HOWMNY, SELECT, N, A, [LDA], B, [LDB], VL, * [LDVL], VR, [LDVR], MM, M, [WORK], [INFO]) CHARACTER(LEN=1) :: SIDE, HOWMNY INTEGER :: N, LDA, LDB, LDVL, LDVR, MM, M, INFO LOGICAL, DIMENSION(:) :: SELECT REAL(8), DIMENSION(:) :: WORK REAL(8), DIMENSION(:,:) :: A, B, VL, VR SUBROUTINE TGEVC_64( SIDE, HOWMNY, SELECT, N, A, [LDA], B, [LDB], * VL, [LDVL], VR, [LDVR], MM, M, [WORK], [INFO]) CHARACTER(LEN=1) :: SIDE, HOWMNY INTEGER(8) :: N, LDA, LDB, LDVL, LDVR, MM, M, INFO LOGICAL(8), DIMENSION(:) :: SELECT REAL(8), DIMENSION(:) :: WORK REAL(8), DIMENSION(:,:) :: A, B, VL, VR
void dtgevc(char side, char howmny, logical *select, int n, double *a, int lda, double *b, int ldb, double *vl, int ldvl, double *vr, int ldvr, int mm, int *m, int *info);
void dtgevc_64(char side, char howmny, logical *select, long n, double *a, long lda, double *b, long ldb, double *vl, long ldvl, double *vr, long ldvr, long mm, long *m, long *info);
The right generalized eigenvector x and the left generalized eigenvector y of (A,B) corresponding to a generalized eigenvalue w are defined by:
(A - wB) * x = 0 and y**H * (A - wB) = 0
where y**H denotes the conjugate tranpose of y.
If an eigenvalue w is determined by zero diagonal elements of both A and B, a unit vector is returned as the corresponding eigenvector.
If all eigenvectors are requested, the routine may either return the matrices X and/or Y of right or left eigenvectors of (A,B), or the products Z*X and/or Q*Y, where Z and Q are input orthogonal matrices. If (A,B) was obtained from the generalized real-Schur factorization of an original pair of matrices
(A0,B0) = (Q*A*Z**H,Q*B*Z**H),
then Z*X and Q*Y are the matrices of right or left eigenvectors of A.
A must be block upper triangular, with 1-by-1 and 2-by-2 diagonal blocks. Corresponding to each 2-by-2 diagonal block is a complex conjugate pair of eigenvalues and eigenvectors; only one
eigenvector of the pair is computed, namely the one corresponding to the eigenvalue with positive imaginary part.
A complex eigenvector corresponding to a complex eigenvalue is stored in two consecutive columns, the first holding the real part, and the second the imaginary part.
A complex eigenvector corresponding to a complex eigenvalue is stored in two consecutive columns, the first holding the real part and the second the imaginary part.