Subroutine */
| 9424 | } /* zladiv_ */ |
| 9425 | |
| 9426 | /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, |
| 9427 | doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, |
| 9428 | integer *ldqs, doublereal *rwork, integer *iwork, integer *info) |
| 9429 | { |
| 9430 | /* System generated locals */ |
| 9431 | integer q_dim1, q_offset, qstore_dim1, qstore_offset, i__1, i__2; |
| 9432 | doublereal d__1; |
| 9433 | |
| 9434 | /* Local variables */ |
| 9435 | static integer i__, j, k, ll, iq, lgn, msd2, smm1, spm1, spm2; |
| 9436 | static doublereal temp; |
| 9437 | static integer curr, iperm; |
| 9438 | extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, |
| 9439 | doublereal *, integer *); |
| 9440 | static integer indxq, iwrem, iqptr, tlvls; |
| 9441 | extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, |
| 9442 | doublecomplex *, integer *), zlaed7_(integer *, integer *, |
| 9443 | integer *, integer *, integer *, integer *, doublereal *, |
| 9444 | doublecomplex *, integer *, doublereal *, integer *, doublereal *, |
| 9445 | integer *, integer *, integer *, integer *, integer *, |
| 9446 | doublereal *, doublecomplex *, doublereal *, integer *, integer *) |
| 9447 | ; |
| 9448 | static integer igivcl; |
| 9449 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 9450 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 9451 | integer *, integer *, ftnlen, ftnlen); |
| 9452 | extern /* Subroutine */ int zlacrm_(integer *, integer *, doublecomplex *, |
| 9453 | integer *, doublereal *, integer *, doublecomplex *, integer *, |
| 9454 | doublereal *); |
| 9455 | static integer igivnm, submat, curprb, subpbs, igivpt; |
| 9456 | extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, |
| 9457 | doublereal *, doublereal *, integer *, doublereal *, integer *); |
| 9458 | static integer curlvl, matsiz, iprmpt, smlsiz; |
| 9459 | |
| 9460 | |
| 9461 | /* |
| 9462 | -- LAPACK routine (version 3.2) -- |
| 9463 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 9464 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 9465 | November 2006 |
| 9466 | |
| 9467 | |
| 9468 | Purpose |
| 9469 | ======= |
| 9470 | |
| 9471 | Using the divide and conquer method, ZLAED0 computes all eigenvalues |
| 9472 | of a symmetric tridiagonal matrix which is one diagonal block of |
| 9473 | those from reducing a dense or band Hermitian matrix and |
| 9474 | corresponding eigenvectors of the dense or band matrix. |
| 9475 | |
| 9476 | Arguments |
| 9477 | ========= |
| 9478 | |
| 9479 | QSIZ (input) INTEGER |
| 9480 | The dimension of the unitary matrix used to reduce |
| 9481 | the full matrix to tridiagonal form. QSIZ >= N if ICOMPQ = 1. |
| 9482 | |
| 9483 | N (input) INTEGER |