--- rpl/lapack/lapack/dtptrs.f	2010/08/06 15:28:49	1.3
+++ rpl/lapack/lapack/dtptrs.f	2011/07/22 07:38:13	1.8
@@ -141,7 +141,7 @@
       END IF
       INFO = 0
 *
-*     Solve A * x = b  or  A' * x = b.
+*     Solve A * x = b  or  A**T * x = b.
 *
       DO 30 J = 1, NRHS
          CALL DTPSV( UPLO, TRANS, DIAG, N, AP, B( 1, J ), 1 )