Subroutine */
| 24137 | } /* zrot_ */ |
| 24138 | |
| 24139 | /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, |
| 24140 | doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, |
| 24141 | integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, |
| 24142 | integer *liwork, integer *info) |
| 24143 | { |
| 24144 | /* System generated locals */ |
| 24145 | integer z_dim1, z_offset, i__1, i__2, i__3, i__4; |
| 24146 | doublereal d__1, d__2; |
| 24147 | |
| 24148 | /* Local variables */ |
| 24149 | static integer i__, j, k, m; |
| 24150 | static doublereal p; |
| 24151 | static integer ii, ll, lgn; |
| 24152 | static doublereal eps, tiny; |
| 24153 | extern logical lsame_(char *, char *); |
| 24154 | static integer lwmin, start; |
| 24155 | extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, |
| 24156 | doublecomplex *, integer *), zlaed0_(integer *, integer *, |
| 24157 | doublereal *, doublereal *, doublecomplex *, integer *, |
| 24158 | doublecomplex *, integer *, doublereal *, integer *, integer *); |
| 24159 | |
| 24160 | extern /* Subroutine */ int dlascl_(char *, integer *, integer *, |
| 24161 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 24162 | integer *, integer *), dstedc_(char *, integer *, |
| 24163 | doublereal *, doublereal *, doublereal *, integer *, doublereal *, |
| 24164 | integer *, integer *, integer *, integer *), dlaset_( |
| 24165 | char *, integer *, integer *, doublereal *, doublereal *, |
| 24166 | doublereal *, integer *), xerbla_(char *, integer *); |
| 24167 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 24168 | integer *, integer *, ftnlen, ftnlen); |
| 24169 | static integer finish; |
| 24170 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 24171 | extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, |
| 24172 | integer *), zlacrm_(integer *, integer *, doublecomplex *, |
| 24173 | integer *, doublereal *, integer *, doublecomplex *, integer *, |
| 24174 | doublereal *); |
| 24175 | static integer liwmin, icompz; |
| 24176 | extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, |
| 24177 | doublereal *, doublereal *, integer *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, |
| 24178 | integer *, doublecomplex *, integer *); |
| 24179 | static doublereal orgnrm; |
| 24180 | static integer lrwmin; |
| 24181 | static logical lquery; |
| 24182 | static integer smlsiz; |
| 24183 | extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, |
| 24184 | doublereal *, doublecomplex *, integer *, doublereal *, integer *); |
| 24185 | |
| 24186 | |
| 24187 | /* |
| 24188 | -- LAPACK routine (version 3.2) -- |
| 24189 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 24190 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 24191 | November 2006 |
| 24192 | |
| 24193 | |
| 24194 | Purpose |
| 24195 | ======= |
| 24196 |
no test coverage detected