--- rpl/lapack/lapack/dtbtrs.f 2010/12/21 13:53:40 1.7 +++ rpl/lapack/lapack/dtbtrs.f 2011/07/22 07:38:12 1.8 @@ -150,7 +150,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 DTBSV( UPLO, TRANS, DIAG, N, KD, AB, LDAB, B( 1, J ), 1 )