--- rpl/lapack/lapack/dlaic1.f	2010/12/21 13:53:29	1.7
+++ rpl/lapack/lapack/dlaic1.f	2011/07/22 07:38:06	1.8
@@ -1,9 +1,9 @@
       SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C )
 *
-*  -- 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 ..
       INTEGER            J, JOB
@@ -27,20 +27,20 @@
 *                  [ s*x ]
 *           xhat = [  c  ]
 *  is an approximate singular vector of
-*                  [ L     0  ]
-*           Lhat = [ w' gamma ]
+*                  [ L       0  ]
+*           Lhat = [ w**T gamma ]
 *  in the sense that
 *           twonorm(Lhat*xhat) = sestpr.
 *
 *  Depending on JOB, an estimate for the largest or smallest singular
 *  value is computed.
 *
-*  Note that [s c]' and sestpr**2 is an eigenpair of the system
+*  Note that [s c]**T and sestpr**2 is an eigenpair of the system
 *
 *      diag(sest*sest, 0) + [alpha  gamma] * [ alpha ]
 *                                            [ gamma ]
 *
-*  where  alpha =  x'*w.
+*  where  alpha =  x**T*w.
 *
 *  Arguments
 *  =========