version 1.11, 2012/08/22 09:48:12
|
version 1.13, 2012/12/14 14:22:28
|
Line 43
|
Line 43
|
*> A * v(j) = lambda(j) * v(j) |
*> A * v(j) = lambda(j) * v(j) |
*> where lambda(j) is its eigenvalue. |
*> where lambda(j) is its eigenvalue. |
*> The left eigenvector u(j) of A satisfies |
*> The left eigenvector u(j) of A satisfies |
*> u(j)**T * A = lambda(j) * u(j)**T |
*> u(j)**H * A = lambda(j) * u(j)**H |
*> where u(j)**T denotes the transpose of u(j). |
*> where u(j)**H denotes the conjugate-transpose of u(j). |
*> |
*> |
*> The computed eigenvectors are normalized to have Euclidean norm |
*> The computed eigenvectors are normalized to have Euclidean norm |
*> equal to 1 and largest component real. |
*> equal to 1 and largest component real. |
Line 181
|
Line 181
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date September 2012 |
* |
* |
*> \ingroup doubleGEeigen |
*> \ingroup doubleGEeigen |
* |
* |
Line 189
|
Line 189
|
SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, |
SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, |
$ LDVR, WORK, LWORK, INFO ) |
$ LDVR, WORK, LWORK, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.4.0) -- |
* -- LAPACK driver routine (version 3.4.2) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2011 |
* September 2012 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER JOBVL, JOBVR |
CHARACTER JOBVL, JOBVR |