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