[BACK]Return to dlaed7.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dlaed7.f between versions 1.9 and 1.17

version 1.9, 2011/11/21 20:42:54 version 1.17, 2016/08/27 15:34:26
Line 1 Line 1
 *> \brief \b DLAED7  *> \brief \b DLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense.
 *  *
 *  =========== DOCUMENTATION ===========  *  =========== DOCUMENTATION ===========
 *  *
Line 59 Line 59
 *>  *>
 *>       The first stage consists of deflating the size of the problem  *>       The first stage consists of deflating the size of the problem
 *>       when there are multiple eigenvalues or if there is a zero in  *>       when there are multiple eigenvalues or if there is a zero in
 *>       the Z vector.  For each such occurence the dimension of the  *>       the Z vector.  For each such occurrence the dimension of the
 *>       secular equation problem is reduced by one.  This stage is  *>       secular equation problem is reduced by one.  This stage is
 *>       performed by the routine DLAED8.  *>       performed by the routine DLAED8.
 *>  *>
Line 244 Line 244
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date June 2016
 *  *
 *> \ingroup auxOTHERcomputational  *> \ingroup auxOTHERcomputational
 *  *
Line 260 Line 260
      $                   PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK,       $                   PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK,
      $                   INFO )       $                   INFO )
 *  *
 *  -- LAPACK computational routine (version 3.4.0) --  *  -- LAPACK computational routine (version 3.6.1) --
 *  -- 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 2011  *     June 2016
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N,        INTEGER            CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N,
Line 304 Line 304
       ELSE IF( N.LT.0 ) THEN        ELSE IF( N.LT.0 ) THEN
          INFO = -2           INFO = -2
       ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN        ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN
          INFO = -4           INFO = -3
       ELSE IF( LDQ.LT.MAX( 1, N ) ) THEN        ELSE IF( LDQ.LT.MAX( 1, N ) ) THEN
          INFO = -9           INFO = -9
       ELSE IF( MIN( 1, N ).GT.CUTPNT .OR. N.LT.CUTPNT ) THEN        ELSE IF( MIN( 1, N ).GT.CUTPNT .OR. N.LT.CUTPNT ) THEN
Removed from v.1.9  
changed lines
  Added in v.1.17

CVSweb interface <joel.bertrand@systella.fr>