--- rpl/lapack/lapack/zlagtm.f	2010/12/21 13:53:49	1.7
+++ rpl/lapack/lapack/zlagtm.f	2011/07/22 07:38:17	1.8
@@ -1,10 +1,10 @@
       SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA,
      $                   B, LDB )
 *
-*  -- LAPACK auxiliary routine (version 3.2) --
+*  -- LAPACK auxiliary 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                                                      --
 *
 *     .. Scalar Arguments ..
       CHARACTER          TRANS
@@ -189,7 +189,7 @@
   120       CONTINUE
          ELSE IF( LSAME( TRANS, 'T' ) ) THEN
 *
-*           Compute B := B - A'*X
+*           Compute B := B - A**T *X
 *
             DO 140 J = 1, NRHS
                IF( N.EQ.1 ) THEN
@@ -207,7 +207,7 @@
   140       CONTINUE
          ELSE IF( LSAME( TRANS, 'C' ) ) THEN
 *
-*           Compute B := B - A'*X
+*           Compute B := B - A**H *X
 *
             DO 160 J = 1, NRHS
                IF( N.EQ.1 ) THEN