--- rpl/lapack/lapack/zhpsv.f	2010/12/21 13:53:47	1.7
+++ rpl/lapack/lapack/zhpsv.f	2011/07/22 07:38:16	1.8
@@ -1,9 +1,9 @@
       SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, 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          UPLO
@@ -132,7 +132,7 @@
          RETURN
       END IF
 *
-*     Compute the factorization A = U*D*U' or A = L*D*L'.
+*     Compute the factorization A = U*D*U**H or A = L*D*L**H.
 *
       CALL ZHPTRF( UPLO, N, AP, IPIV, INFO )
       IF( INFO.EQ.0 ) THEN