Subroutine */
| 24024 | } /* crot_ */ |
| 24025 | |
| 24026 | /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, |
| 24027 | complex *z__, integer *ldz, complex *work, integer *lwork, real * |
| 24028 | rwork, integer *lrwork, integer *iwork, integer *liwork, integer * |
| 24029 | info) |
| 24030 | { |
| 24031 | /* System generated locals */ |
| 24032 | integer z_dim1, z_offset, i__1, i__2, i__3, i__4; |
| 24033 | real r__1, r__2; |
| 24034 | |
| 24035 | /* Local variables */ |
| 24036 | static integer i__, j, k, m; |
| 24037 | static real p; |
| 24038 | static integer ii, ll, lgn; |
| 24039 | static real eps, tiny; |
| 24040 | extern logical lsame_(char *, char *); |
| 24041 | extern /* Subroutine */ int cswap_(integer *, complex *, integer *, |
| 24042 | complex *, integer *); |
| 24043 | static integer lwmin; |
| 24044 | extern /* Subroutine */ int claed0_(integer *, integer *, real *, real *, |
| 24045 | complex *, integer *, complex *, integer *, real *, integer *, |
| 24046 | integer *); |
| 24047 | static integer start; |
| 24048 | extern /* Subroutine */ int clacrm_(integer *, integer *, complex *, |
| 24049 | integer *, real *, integer *, complex *, integer *, real *); |
| 24050 | extern doublereal slamch_(char *); |
| 24051 | extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex |
| 24052 | *, integer *, complex *, integer *), xerbla_(char *, |
| 24053 | integer *); |
| 24054 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 24055 | integer *, integer *, ftnlen, ftnlen); |
| 24056 | static integer finish; |
| 24057 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 24058 | real *, integer *, integer *, real *, integer *, integer *), sstedc_(char *, integer *, real *, real *, real *, |
| 24059 | integer *, real *, integer *, integer *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, |
| 24060 | real *, integer *); |
| 24061 | static integer liwmin, icompz; |
| 24062 | extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, |
| 24063 | complex *, integer *, real *, integer *); |
| 24064 | static real orgnrm; |
| 24065 | extern doublereal slanst_(char *, integer *, real *, real *); |
| 24066 | extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); |
| 24067 | static integer lrwmin; |
| 24068 | static logical lquery; |
| 24069 | static integer smlsiz; |
| 24070 | extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, |
| 24071 | real *, integer *, real *, integer *); |
| 24072 | |
| 24073 | |
| 24074 | /* |
| 24075 | -- LAPACK routine (version 3.2) -- |
| 24076 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 24077 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 24078 | November 2006 |
| 24079 | |
| 24080 | |
| 24081 | Purpose |
| 24082 | ======= |
| 24083 |
no test coverage detected