--- rpl/lapack/lapack/zhpsvx.f	2010/12/21 13:53:47	1.7
+++ rpl/lapack/lapack/zhpsvx.f	2011/07/22 07:38:16	1.8
@@ -1,10 +1,10 @@
       SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X,
      $                   LDX, RCOND, FERR, BERR, WORK, RWORK, 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          FACT, UPLO
@@ -234,7 +234,7 @@
 *
       IF( NOFACT ) THEN
 *
-*        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 ZCOPY( N*( N+1 ) / 2, AP, 1, AFP, 1 )
          CALL ZHPTRF( UPLO, N, AFP, IPIV, INFO )