Subroutine */
| 24491 | } /* cstedc_ */ |
| 24492 | |
| 24493 | /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, |
| 24494 | complex *z__, integer *ldz, real *work, integer *info) |
| 24495 | { |
| 24496 | /* System generated locals */ |
| 24497 | integer z_dim1, z_offset, i__1, i__2; |
| 24498 | real r__1, r__2; |
| 24499 | |
| 24500 | /* Local variables */ |
| 24501 | static real b, c__, f, g; |
| 24502 | static integer i__, j, k, l, m; |
| 24503 | static real p, r__, s; |
| 24504 | static integer l1, ii, mm, lm1, mm1, nm1; |
| 24505 | static real rt1, rt2, eps; |
| 24506 | static integer lsv; |
| 24507 | static real tst, eps2; |
| 24508 | static integer lend, jtot; |
| 24509 | extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) |
| 24510 | ; |
| 24511 | extern logical lsame_(char *, char *); |
| 24512 | extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, |
| 24513 | integer *, real *, real *, complex *, integer *); |
| 24514 | static real anorm; |
| 24515 | extern /* Subroutine */ int cswap_(integer *, complex *, integer *, |
| 24516 | complex *, integer *); |
| 24517 | static integer lendm1, lendp1; |
| 24518 | extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * |
| 24519 | , real *, real *); |
| 24520 | extern doublereal slapy2_(real *, real *); |
| 24521 | static integer iscale; |
| 24522 | extern doublereal slamch_(char *); |
| 24523 | extern /* Subroutine */ int claset_(char *, integer *, integer *, complex |
| 24524 | *, complex *, complex *, integer *); |
| 24525 | static real safmin; |
| 24526 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 24527 | static real safmax; |
| 24528 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 24529 | real *, integer *, integer *, real *, integer *, integer *); |
| 24530 | static integer lendsv; |
| 24531 | extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * |
| 24532 | ); |
| 24533 | static real ssfmin; |
| 24534 | static integer nmaxit, icompz; |
| 24535 | static real ssfmax; |
| 24536 | extern doublereal slanst_(char *, integer *, real *, real *); |
| 24537 | extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); |
| 24538 | |
| 24539 | |
| 24540 | /* |
| 24541 | -- LAPACK routine (version 3.2) -- |
| 24542 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 24543 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 24544 | November 2006 |
| 24545 | |
| 24546 | |
| 24547 | Purpose |
| 24548 | ======= |
| 24549 | |
| 24550 | CSTEQR computes all eigenvalues and, optionally, eigenvectors of a |
no test coverage detected