--- rpl/lapack/lapack/zsprfs.f 2010/08/13 21:04:14 1.6 +++ 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