--- rpl/lapack/lapack/dsygst.f	2010/12/21 13:53:39	1.7
+++ rpl/lapack/lapack/dsygst.f	2011/07/22 07:38:11	1.8
@@ -1,9 +1,9 @@
       SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
 *
-*  -- LAPACK routine (version 3.2) --
+*  -- LAPACK 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          UPLO
@@ -133,7 +133,7 @@
          IF( ITYPE.EQ.1 ) THEN
             IF( UPPER ) THEN
 *
-*              Compute inv(U')*A*inv(U)
+*              Compute inv(U**T)*A*inv(U)
 *
                DO 10 K = 1, N, NB
                   KB = MIN( N-K+1, NB )
@@ -163,7 +163,7 @@
    10          CONTINUE
             ELSE
 *
-*              Compute inv(L)*A*inv(L')
+*              Compute inv(L)*A*inv(L**T)
 *
                DO 20 K = 1, N, NB
                   KB = MIN( N-K+1, NB )
@@ -195,7 +195,7 @@
          ELSE
             IF( UPPER ) THEN
 *
-*              Compute U*A*U'
+*              Compute U*A*U**T
 *
                DO 30 K = 1, N, NB
                   KB = MIN( N-K+1, NB )
@@ -219,7 +219,7 @@
    30          CONTINUE
             ELSE
 *
-*              Compute L'*A*L
+*              Compute L**T*A*L
 *
                DO 40 K = 1, N, NB
                   KB = MIN( N-K+1, NB )