Subroutine */
| 37450 | } /* dpotrs_ */ |
| 37451 | |
| 37452 | /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, |
| 37453 | doublereal *e, doublereal *z__, integer *ldz, doublereal *work, |
| 37454 | integer *lwork, integer *iwork, integer *liwork, integer *info) |
| 37455 | { |
| 37456 | /* System generated locals */ |
| 37457 | integer z_dim1, z_offset, i__1, i__2; |
| 37458 | doublereal d__1, d__2; |
| 37459 | |
| 37460 | /* Local variables */ |
| 37461 | static integer i__, j, k, m; |
| 37462 | static doublereal p; |
| 37463 | static integer ii, lgn; |
| 37464 | static doublereal eps, tiny; |
| 37465 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 37466 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 37467 | integer *, doublereal *, doublereal *, integer *); |
| 37468 | extern logical lsame_(char *, char *); |
| 37469 | extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, |
| 37470 | doublereal *, integer *); |
| 37471 | static integer lwmin; |
| 37472 | extern /* Subroutine */ int dlaed0_(integer *, integer *, integer *, |
| 37473 | doublereal *, doublereal *, doublereal *, integer *, doublereal *, |
| 37474 | integer *, doublereal *, integer *, integer *); |
| 37475 | static integer start; |
| 37476 | |
| 37477 | extern /* Subroutine */ int dlascl_(char *, integer *, integer *, |
| 37478 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 37479 | integer *, integer *), dlacpy_(char *, integer *, integer |
| 37480 | *, doublereal *, integer *, doublereal *, integer *), |
| 37481 | dlaset_(char *, integer *, integer *, doublereal *, doublereal *, |
| 37482 | doublereal *, integer *); |
| 37483 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 37484 | integer *, integer *, ftnlen, ftnlen); |
| 37485 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 37486 | static integer finish; |
| 37487 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 37488 | extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, |
| 37489 | integer *), dlasrt_(char *, integer *, doublereal *, integer *); |
| 37490 | static integer liwmin, icompz; |
| 37491 | extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, |
| 37492 | doublereal *, doublereal *, integer *, doublereal *, integer *); |
| 37493 | static doublereal orgnrm; |
| 37494 | static logical lquery; |
| 37495 | static integer smlsiz, storez, strtrw; |
| 37496 | |
| 37497 | |
| 37498 | /* |
| 37499 | -- LAPACK driver routine (version 3.2) -- |
| 37500 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 37501 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 37502 | November 2006 |
| 37503 | |
| 37504 | |
| 37505 | Purpose |
| 37506 | ======= |
| 37507 | |
| 37508 | DSTEDC computes all eigenvalues and, optionally, eigenvectors of a |
| 37509 | symmetric tridiagonal matrix using the divide and conquer method. |
no test coverage detected