Subroutine */
| 24605 | } /* zstedc_ */ |
| 24606 | |
| 24607 | /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, |
| 24608 | doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, |
| 24609 | integer *info) |
| 24610 | { |
| 24611 | /* System generated locals */ |
| 24612 | integer z_dim1, z_offset, i__1, i__2; |
| 24613 | doublereal d__1, d__2; |
| 24614 | |
| 24615 | /* Local variables */ |
| 24616 | static doublereal b, c__, f, g; |
| 24617 | static integer i__, j, k, l, m; |
| 24618 | static doublereal p, r__, s; |
| 24619 | static integer l1, ii, mm, lm1, mm1, nm1; |
| 24620 | static doublereal rt1, rt2, eps; |
| 24621 | static integer lsv; |
| 24622 | static doublereal tst, eps2; |
| 24623 | static integer lend, jtot; |
| 24624 | extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal |
| 24625 | *, doublereal *, doublereal *); |
| 24626 | extern logical lsame_(char *, char *); |
| 24627 | static doublereal anorm; |
| 24628 | extern /* Subroutine */ int zlasr_(char *, char *, char *, integer *, |
| 24629 | integer *, doublereal *, doublereal *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, |
| 24630 | integer *, doublecomplex *, integer *), dlaev2_(doublereal *, |
| 24631 | doublereal *, doublereal *, doublereal *, doublereal *, |
| 24632 | doublereal *, doublereal *); |
| 24633 | static integer lendm1, lendp1; |
| 24634 | |
| 24635 | static integer iscale; |
| 24636 | extern /* Subroutine */ int dlascl_(char *, integer *, integer *, |
| 24637 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 24638 | integer *, integer *); |
| 24639 | static doublereal safmin; |
| 24640 | extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, |
| 24641 | doublereal *, doublereal *, doublereal *); |
| 24642 | static doublereal safmax; |
| 24643 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 24644 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 24645 | extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, |
| 24646 | integer *); |
| 24647 | static integer lendsv; |
| 24648 | static doublereal ssfmin; |
| 24649 | static integer nmaxit, icompz; |
| 24650 | static doublereal ssfmax; |
| 24651 | extern /* Subroutine */ int zlaset_(char *, integer *, integer *, |
| 24652 | doublecomplex *, doublecomplex *, doublecomplex *, integer *); |
| 24653 | |
| 24654 | |
| 24655 | /* |
| 24656 | -- LAPACK routine (version 3.2) -- |
| 24657 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 24658 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 24659 | November 2006 |
| 24660 | |
| 24661 | |
| 24662 | Purpose |
| 24663 | ======= |
| 24664 |
no test coverage detected