--- rpl/lapack/lapack/dsygvx.f 2010/12/21 13:53:39 1.8 +++ rpl/lapack/lapack/dsygvx.f 2011/07/22 07:38:11 1.9 @@ -2,10 +2,10 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -296,7 +296,7 @@ IF( ITYPE.EQ.1 .OR. ITYPE.EQ.2 ) THEN * * For A*x=(lambda)*B*x and A*B*x=(lambda)*x; -* backtransform eigenvectors: x = inv(L)'*y or inv(U)*y +* backtransform eigenvectors: x = inv(L)**T*y or inv(U)*y * IF( UPPER ) THEN TRANS = 'N' @@ -310,7 +310,7 @@ ELSE IF( ITYPE.EQ.3 ) THEN * * For B*A*x=(lambda)*x; -* backtransform eigenvectors: x = L*y or U'*y +* backtransform eigenvectors: x = L*y or U**T*y * IF( UPPER ) THEN TRANS = 'T'