Diff for /rpl/lapack/lapack/dlaein.f between versions 1.4 and 1.5

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

Removed from v.1.4  
changed lines
  Added in v.1.5


CVSweb interface <joel.bertrand@systella.fr>