version 1.10, 2011/11/21 22:19:34
|
version 1.16, 2015/11/26 11:44:18
|
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 174
|
Line 174
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date November 2015 |
* |
* |
*> \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.0) -- |
* -- 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 |
* November 2015 |
* |
* |
* .. 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 |