--- rpl/lapack/lapack/dtrtrs.f	2010/12/21 13:53:41	1.7
+++ rpl/lapack/lapack/dtrtrs.f	2011/07/22 07:38:13	1.8
@@ -136,7 +136,7 @@
       END IF
       INFO = 0
 *
-*     Solve A * x = b  or  A' * x = b.
+*     Solve A * x = b  or  A**T * x = b.
 *
       CALL DTRSM( 'Left', UPLO, TRANS, DIAG, N, NRHS, ONE, A, LDA, B,
      $            LDB )