Subroutine */
| 30499 | } /* dlasq4_ */ |
| 30500 | |
| 30501 | /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, |
| 30502 | integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, |
| 30503 | doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2, |
| 30504 | logical *ieee) |
| 30505 | { |
| 30506 | /* System generated locals */ |
| 30507 | integer i__1; |
| 30508 | doublereal d__1, d__2; |
| 30509 | |
| 30510 | /* Local variables */ |
| 30511 | static doublereal d__; |
| 30512 | static integer j4, j4p2; |
| 30513 | static doublereal emin, temp; |
| 30514 | |
| 30515 | |
| 30516 | /* |
| 30517 | -- LAPACK routine (version 3.2) -- |
| 30518 | |
| 30519 | -- Contributed by Osni Marques of the Lawrence Berkeley National -- |
| 30520 | -- Laboratory and Beresford Parlett of the Univ. of California at -- |
| 30521 | -- Berkeley -- |
| 30522 | -- November 2008 -- |
| 30523 | |
| 30524 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 30525 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 30526 | |
| 30527 | |
| 30528 | Purpose |
| 30529 | ======= |
| 30530 | |
| 30531 | DLASQ5 computes one dqds transform in ping-pong form, one |
| 30532 | version for IEEE machines another for non IEEE machines. |
| 30533 | |
| 30534 | Arguments |
| 30535 | ========= |
| 30536 | |
| 30537 | I0 (input) INTEGER |
| 30538 | First index. |
| 30539 | |
| 30540 | N0 (input) INTEGER |
| 30541 | Last index. |
| 30542 | |
| 30543 | Z (input) DOUBLE PRECISION array, dimension ( 4*N ) |
| 30544 | Z holds the qd array. EMIN is stored in Z(4*N0) to avoid |
| 30545 | an extra argument. |
| 30546 | |
| 30547 | PP (input) INTEGER |
| 30548 | PP=0 for ping, PP=1 for pong. |
| 30549 | |
| 30550 | TAU (input) DOUBLE PRECISION |
| 30551 | This is the shift. |
| 30552 | |
| 30553 | DMIN (output) DOUBLE PRECISION |
| 30554 | Minimum value of d. |
| 30555 | |
| 30556 | DMIN1 (output) DOUBLE PRECISION |
| 30557 | Minimum value of d, excluding D( N0 ). |
| 30558 |