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

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

version 1.9, 2011/11/21 20:42:57 version 1.17, 2016/08/27 15:27:10
Line 1 Line 1
 *> \brief \b DLARRF  *> \brief \b DLARRF finds a new relatively robust representation such that at least one of the eigenvalues is relatively isolated.
 *  *
 *  =========== DOCUMENTATION ===========  *  =========== DOCUMENTATION ===========
 *  *
Line 51 Line 51
 *> \param[in] N  *> \param[in] N
 *> \verbatim  *> \verbatim
 *>          N is INTEGER  *>          N is INTEGER
 *>          The order of the matrix (subblock, if the matrix splitted).  *>          The order of the matrix (subblock, if the matrix split).
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] D  *> \param[in] D
Line 174 Line 174
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date June 2016
 *  *
 *> \ingroup auxOTHERauxiliary  *> \ingroup auxOTHERauxiliary
 *  *
Line 193 Line 193
      $                   SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA,       $                   SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA,
      $                   DPLUS, LPLUS, WORK, INFO )       $                   DPLUS, LPLUS, WORK, INFO )
 *  *
 *  -- LAPACK auxiliary routine (version 3.4.0) --  *  -- LAPACK auxiliary 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            CLSTRT, CLEND, INFO, N        INTEGER            CLSTRT, CLEND, INFO, N
Line 210 Line 210
 *  =====================================================================  *  =====================================================================
 *  *
 *     .. Parameters ..  *     .. Parameters ..
       DOUBLE PRECISION   FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO,        DOUBLE PRECISION   FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO
      $                   ZERO        PARAMETER          ( ONE = 1.0D0, TWO = 2.0D0, FOUR = 4.0D0,
       PARAMETER          ( ZERO = 0.0D0, ONE = 1.0D0, TWO = 2.0D0,       $                     QUART = 0.25D0,
      $                     FOUR = 4.0D0, QUART = 0.25D0,  
      $                     MAXGROWTH1 = 8.D0,       $                     MAXGROWTH1 = 8.D0,
      $                     MAXGROWTH2 = 8.D0 )       $                     MAXGROWTH2 = 8.D0 )
 *     ..  *     ..
Line 258 Line 257
   
 *     Decide whether the code should accept the best among all  *     Decide whether the code should accept the best among all
 *     representations despite large element growth or signal INFO=1  *     representations despite large element growth or signal INFO=1
       NOFAIL = .TRUE.  *     Setting NOFAIL to .FALSE. for quick fix for bug 113
         NOFAIL = .FALSE.
 *  *
   
 *     Compute the average gap length of the cluster  *     Compute the average gap length of the cluster
Removed from v.1.9  
changed lines
  Added in v.1.17

CVSweb interface <joel.bertrand@systella.fr>