--- rpl/lapack/lapack/dtrcon.f	2010/08/13 21:04:00	1.6
+++ rpl/lapack/lapack/dtrcon.f	2011/07/22 07:38:13	1.8
@@ -165,7 +165,7 @@
      $                      LDA, WORK, SCALE, WORK( 2*N+1 ), INFO )
             ELSE
 *
-*              Multiply by inv(A').
+*              Multiply by inv(A**T).
 *
                CALL DLATRS( UPLO, 'Transpose', DIAG, NORMIN, N, A, LDA,
      $                      WORK, SCALE, WORK( 2*N+1 ), INFO )