Subroutine */
| 9367 | } /* cladiv_ */ |
| 9368 | |
| 9369 | /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, |
| 9370 | complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, |
| 9371 | integer *iwork, integer *info) |
| 9372 | { |
| 9373 | /* System generated locals */ |
| 9374 | integer q_dim1, q_offset, qstore_dim1, qstore_offset, i__1, i__2; |
| 9375 | real r__1; |
| 9376 | |
| 9377 | /* Local variables */ |
| 9378 | static integer i__, j, k, ll, iq, lgn, msd2, smm1, spm1, spm2; |
| 9379 | static real temp; |
| 9380 | static integer curr, iperm; |
| 9381 | extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, |
| 9382 | complex *, integer *); |
| 9383 | static integer indxq, iwrem; |
| 9384 | extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, |
| 9385 | integer *); |
| 9386 | static integer iqptr; |
| 9387 | extern /* Subroutine */ int claed7_(integer *, integer *, integer *, |
| 9388 | integer *, integer *, integer *, real *, complex *, integer *, |
| 9389 | real *, integer *, real *, integer *, integer *, integer *, |
| 9390 | integer *, integer *, real *, complex *, real *, integer *, |
| 9391 | integer *); |
| 9392 | static integer tlvls; |
| 9393 | extern /* Subroutine */ int clacrm_(integer *, integer *, complex *, |
| 9394 | integer *, real *, integer *, complex *, integer *, real *); |
| 9395 | static integer igivcl; |
| 9396 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 9397 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 9398 | integer *, integer *, ftnlen, ftnlen); |
| 9399 | static integer igivnm, submat, curprb, subpbs, igivpt, curlvl, matsiz, |
| 9400 | iprmpt, smlsiz; |
| 9401 | extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, |
| 9402 | real *, integer *, real *, integer *); |
| 9403 | |
| 9404 | |
| 9405 | /* |
| 9406 | -- LAPACK routine (version 3.2) -- |
| 9407 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 9408 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 9409 | November 2006 |
| 9410 | |
| 9411 | |
| 9412 | Purpose |
| 9413 | ======= |
| 9414 | |
| 9415 | Using the divide and conquer method, CLAED0 computes all eigenvalues |
| 9416 | of a symmetric tridiagonal matrix which is one diagonal block of |
| 9417 | those from reducing a dense or band Hermitian matrix and |
| 9418 | corresponding eigenvectors of the dense or band matrix. |
| 9419 | |
| 9420 | Arguments |
| 9421 | ========= |
| 9422 | |
| 9423 | QSIZ (input) INTEGER |
| 9424 | The dimension of the unitary matrix used to reduce |
| 9425 | the full matrix to tridiagonal form. QSIZ >= N if ICOMPQ = 1. |
| 9426 |