--- rpl/lapack/lapack/dspgvd.f	2010/12/21 13:53:38	1.7
+++ rpl/lapack/lapack/dspgvd.f	2011/07/22 07:38:10	1.8
@@ -1,10 +1,10 @@
       SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK,
      $                   LWORK, IWORK, LIWORK, INFO )
 *
-*  -- LAPACK driver routine (version 3.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..--
-*     November 2006
+*  -- April 2011                                                      --
 *
 *     .. Scalar Arguments ..
       CHARACTER          JOBZ, UPLO
@@ -191,7 +191,6 @@
          END IF
          WORK( 1 ) = LWMIN
          IWORK( 1 ) = LIWMIN
-*
          IF( LWORK.LT.LWMIN .AND. .NOT.LQUERY ) THEN
             INFO = -11
          ELSE IF( LIWORK.LT.LIWMIN .AND. .NOT.LQUERY ) THEN
@@ -237,7 +236,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'
@@ -253,7 +252,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'