--- rpl/lapack/lapack/zhprfs.f 2010/12/21 13:53:47 1.7 +++ rpl/lapack/lapack/zhprfs.f 2011/07/22 07:38:16 1.8 @@ -306,7 +306,7 @@ IF( KASE.NE.0 ) THEN IF( KASE.EQ.1 ) THEN * -* Multiply by diag(W)*inv(A'). +* Multiply by diag(W)*inv(A**H). * CALL ZHPTRS( UPLO, N, 1, AFP, IPIV, WORK, N, INFO ) DO 110 I = 1, N