Subroutine */
| 29215 | } /* dlasq1_ */ |
| 29216 | |
| 29217 | /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info) |
| 29218 | { |
| 29219 | /* System generated locals */ |
| 29220 | integer i__1, i__2, i__3; |
| 29221 | doublereal d__1, d__2; |
| 29222 | |
| 29223 | /* Local variables */ |
| 29224 | static doublereal d__, e, g; |
| 29225 | static integer k; |
| 29226 | static doublereal s, t; |
| 29227 | static integer i0, i4, n0; |
| 29228 | static doublereal dn; |
| 29229 | static integer pp; |
| 29230 | static doublereal dn1, dn2, dee, eps, tau, tol; |
| 29231 | static integer ipn4; |
| 29232 | static doublereal tol2; |
| 29233 | static logical ieee; |
| 29234 | static integer nbig; |
| 29235 | static doublereal dmin__, emin, emax; |
| 29236 | static integer kmin, ndiv, iter; |
| 29237 | static doublereal qmin, temp, qmax, zmax; |
| 29238 | static integer splt; |
| 29239 | static doublereal dmin1, dmin2; |
| 29240 | static integer nfail; |
| 29241 | static doublereal desig, trace, sigma; |
| 29242 | static integer iinfo, ttype; |
| 29243 | extern /* Subroutine */ int dlasq3_(integer *, integer *, doublereal *, |
| 29244 | integer *, doublereal *, doublereal *, doublereal *, doublereal *, |
| 29245 | integer *, integer *, integer *, logical *, integer *, |
| 29246 | doublereal *, doublereal *, doublereal *, doublereal *, |
| 29247 | doublereal *, doublereal *, doublereal *); |
| 29248 | |
| 29249 | static doublereal deemin; |
| 29250 | static integer iwhila, iwhilb; |
| 29251 | static doublereal oldemn, safmin; |
| 29252 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 29253 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 29254 | integer *, integer *, ftnlen, ftnlen); |
| 29255 | extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, |
| 29256 | integer *); |
| 29257 | |
| 29258 | |
| 29259 | /* |
| 29260 | -- LAPACK routine (version 3.2) -- |
| 29261 | |
| 29262 | -- Contributed by Osni Marques of the Lawrence Berkeley National -- |
| 29263 | -- Laboratory and Beresford Parlett of the Univ. of California at -- |
| 29264 | -- Berkeley -- |
| 29265 | -- November 2008 -- |
| 29266 | |
| 29267 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 29268 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 29269 | |
| 29270 | |
| 29271 | Purpose |
| 29272 | ======= |
| 29273 | |
| 29274 | DLASQ2 computes all the eigenvalues of the symmetric positive |