version 1.13, 2012/12/14 12:30:24
|
version 1.16, 2015/11/26 11:44:18
|
Line 174
|
Line 174
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date September 2012 |
*> \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.2) -- |
* -- 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..-- |
* September 2012 |
* November 2015 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER CLSTRT, CLEND, INFO, N |
INTEGER CLSTRT, CLEND, INFO, N |
Line 257
|
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 |