--- rpl/lapack/blas/zhpr.f	2010/12/21 13:51:27	1.6
+++ rpl/lapack/blas/zhpr.f	2011/07/22 07:38:03	1.7
@@ -13,7 +13,7 @@
 *
 *  ZHPR    performs the hermitian rank 1 operation
 *
-*     A := alpha*x*conjg( x' ) + A,
+*     A := alpha*x*x**H + A,
 *
 *  where alpha is a real scalar, x is an n element vector and A is an
 *  n by n hermitian matrix, supplied in packed form.