--- rpl/lapack/lapack/dgbcon.f 2010/12/21 13:53:24 1.7 +++ rpl/lapack/lapack/dgbcon.f 2011/07/22 07:38:04 1.8 @@ -1,10 +1,10 @@ SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * @@ -179,13 +179,13 @@ $ INFO ) ELSE * -* Multiply by inv(U'). +* Multiply by inv(U**T). * CALL DLATBS( 'Upper', 'Transpose', 'Non-unit', NORMIN, N, $ KL+KU, AB, LDAB, WORK, SCALE, WORK( 2*N+1 ), $ INFO ) * -* Multiply by inv(L'). +* Multiply by inv(L**T). * IF( LNOTI ) THEN DO 30 J = N - 1, 1, -1