Subroutine */
| 29787 | } /* dlasq2_ */ |
| 29788 | |
| 29789 | /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, |
| 29790 | integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, |
| 29791 | doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, |
| 29792 | logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, |
| 29793 | doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g, |
| 29794 | doublereal *tau) |
| 29795 | { |
| 29796 | /* System generated locals */ |
| 29797 | integer i__1; |
| 29798 | doublereal d__1, d__2; |
| 29799 | |
| 29800 | /* Local variables */ |
| 29801 | static doublereal s, t; |
| 29802 | static integer j4, nn; |
| 29803 | static doublereal eps, tol; |
| 29804 | static integer n0in, ipn4; |
| 29805 | static doublereal tol2, temp; |
| 29806 | extern /* Subroutine */ int dlasq4_(integer *, integer *, doublereal *, |
| 29807 | integer *, integer *, doublereal *, doublereal *, doublereal *, |
| 29808 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 29809 | doublereal *), dlasq5_(integer *, integer *, doublereal *, |
| 29810 | integer *, doublereal *, doublereal *, doublereal *, doublereal *, |
| 29811 | doublereal *, doublereal *, doublereal *, logical *), dlasq6_( |
| 29812 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 29813 | doublereal *, doublereal *, doublereal *, doublereal *, |
| 29814 | doublereal *); |
| 29815 | |
| 29816 | extern logical disnan_(doublereal *); |
| 29817 | |
| 29818 | |
| 29819 | /* |
| 29820 | -- LAPACK routine (version 3.2.2) -- |
| 29821 | |
| 29822 | -- Contributed by Osni Marques of the Lawrence Berkeley National -- |
| 29823 | -- Laboratory and Beresford Parlett of the Univ. of California at -- |
| 29824 | -- Berkeley -- |
| 29825 | -- June 2010 -- |
| 29826 | |
| 29827 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 29828 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 29829 | |
| 29830 | |
| 29831 | Purpose |
| 29832 | ======= |
| 29833 | |
| 29834 | DLASQ3 checks for deflation, computes a shift (TAU) and calls dqds. |
| 29835 | In case of failure it changes shifts, and tries again until output |
| 29836 | is positive. |
| 29837 | |
| 29838 | Arguments |
| 29839 | ========= |
| 29840 | |
| 29841 | I0 (input) INTEGER |
| 29842 | First index. |
| 29843 | |
| 29844 | N0 (input/output) INTEGER |
| 29845 | Last index. |
| 29846 |