Subroutine */
| 8708 | } /* dlae2_ */ |
| 8709 | |
| 8710 | /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, |
| 8711 | doublereal *d__, doublereal *e, doublereal *q, integer *ldq, |
| 8712 | doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, |
| 8713 | integer *info) |
| 8714 | { |
| 8715 | /* System generated locals */ |
| 8716 | integer q_dim1, q_offset, qstore_dim1, qstore_offset, i__1, i__2; |
| 8717 | doublereal d__1; |
| 8718 | |
| 8719 | /* Local variables */ |
| 8720 | static integer i__, j, k, iq, lgn, msd2, smm1, spm1, spm2; |
| 8721 | static doublereal temp; |
| 8722 | static integer curr; |
| 8723 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 8724 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 8725 | integer *, doublereal *, doublereal *, integer *); |
| 8726 | static integer iperm; |
| 8727 | extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, |
| 8728 | doublereal *, integer *); |
| 8729 | static integer indxq, iwrem; |
| 8730 | extern /* Subroutine */ int dlaed1_(integer *, doublereal *, doublereal *, |
| 8731 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 8732 | integer *, integer *); |
| 8733 | static integer iqptr; |
| 8734 | extern /* Subroutine */ int dlaed7_(integer *, integer *, integer *, |
| 8735 | integer *, integer *, integer *, doublereal *, doublereal *, |
| 8736 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 8737 | integer *, integer *, integer *, integer *, integer *, doublereal |
| 8738 | *, doublereal *, integer *, integer *); |
| 8739 | static integer tlvls; |
| 8740 | extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, |
| 8741 | doublereal *, integer *, doublereal *, integer *); |
| 8742 | static integer igivcl; |
| 8743 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 8744 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 8745 | integer *, integer *, ftnlen, ftnlen); |
| 8746 | static integer igivnm, submat, curprb, subpbs, igivpt; |
| 8747 | extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, |
| 8748 | doublereal *, doublereal *, integer *, doublereal *, integer *); |
| 8749 | static integer curlvl, matsiz, iprmpt, smlsiz; |
| 8750 | |
| 8751 | |
| 8752 | /* |
| 8753 | -- LAPACK routine (version 3.2) -- |
| 8754 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 8755 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 8756 | November 2006 |
| 8757 | |
| 8758 | |
| 8759 | Purpose |
| 8760 | ======= |
| 8761 | |
| 8762 | DLAED0 computes all eigenvalues and corresponding eigenvectors of a |
| 8763 | symmetric tridiagonal matrix using the divide and conquer method. |
| 8764 | |
| 8765 | Arguments |
| 8766 | ========= |
| 8767 |
no test coverage detected