--- rpl/lapack/lapack/zhpgst.f	2010/12/21 13:53:47	1.7
+++ rpl/lapack/lapack/zhpgst.f	2011/07/22 07:38:15	1.8
@@ -1,9 +1,9 @@
       SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, 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
@@ -108,7 +108,7 @@
       IF( ITYPE.EQ.1 ) THEN
          IF( UPPER ) THEN
 *
-*           Compute inv(U')*A*inv(U)
+*           Compute inv(U**H)*A*inv(U)
 *
 *           J1 and JJ are the indices of A(1,j) and A(j,j)
 *
@@ -131,7 +131,7 @@
    10       CONTINUE
          ELSE
 *
-*           Compute inv(L)*A*inv(L')
+*           Compute inv(L)*A*inv(L**H)
 *
 *           KK and K1K1 are the indices of A(k,k) and A(k+1,k+1)
 *
@@ -161,7 +161,7 @@
       ELSE
          IF( UPPER ) THEN
 *
-*           Compute U*A*U'
+*           Compute U*A*U**H
 *
 *           K1 and KK are the indices of A(1,k) and A(k,k)
 *
@@ -186,7 +186,7 @@
    30       CONTINUE
          ELSE
 *
-*           Compute L'*A*L
+*           Compute L**H *A*L
 *
 *           JJ and J1J1 are the indices of A(j,j) and A(j+1,j+1)
 *