--- rpl/lapack/lapack/dlaein.f	2010/08/06 15:32:26	1.4
+++ rpl/lapack/lapack/dlaein.f	2010/08/07 13:18:06	1.5
@@ -1,10 +1,10 @@
       SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B,
      $                   LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO )
 *
-*  -- LAPACK auxiliary routine (version 3.2) --
+*  -- LAPACK auxiliary routine (version 3.2.2) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2006
+*     June 2010
 *
 *     .. Scalar Arguments ..
       LOGICAL            NOINIT, RIGHTV
@@ -26,11 +26,11 @@
 *  Arguments
 *  =========
 *
-*  RIGHTV   (input) LOGICAL
+*  RIGHTV  (input) LOGICAL
 *          = .TRUE. : compute right eigenvector;
 *          = .FALSE.: compute left eigenvector.
 *
-*  NOINIT   (input) LOGICAL
+*  NOINIT  (input) LOGICAL
 *          = .TRUE. : no initial vector supplied in (VR,VI).
 *          = .FALSE.: initial vector supplied in (VR,VI).
 *
@@ -70,7 +70,7 @@
 *  LDB     (input) INTEGER
 *          The leading dimension of the array B.  LDB >= N+1.
 *
-*  WORK   (workspace) DOUBLE PRECISION array, dimension (N)
+*  WORK    (workspace) DOUBLE PRECISION array, dimension (N)
 *
 *  EPS3    (input) DOUBLE PRECISION
 *          A small machine-dependent value which is used to perturb