Subroutine */
| 38795 | } /* ssterf_ */ |
| 38796 | |
| 38797 | /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, |
| 38798 | integer *lda, real *w, real *work, integer *lwork, integer *iwork, |
| 38799 | integer *liwork, integer *info) |
| 38800 | { |
| 38801 | /* System generated locals */ |
| 38802 | integer a_dim1, a_offset, i__1, i__2; |
| 38803 | real r__1; |
| 38804 | |
| 38805 | /* Local variables */ |
| 38806 | static real eps; |
| 38807 | static integer inde; |
| 38808 | static real anrm, rmin, rmax; |
| 38809 | static integer lopt; |
| 38810 | static real sigma; |
| 38811 | extern logical lsame_(char *, char *); |
| 38812 | static integer iinfo; |
| 38813 | extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); |
| 38814 | static integer lwmin, liopt; |
| 38815 | static logical lower, wantz; |
| 38816 | static integer indwk2, llwrk2, iscale; |
| 38817 | extern doublereal slamch_(char *); |
| 38818 | static real safmin; |
| 38819 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 38820 | integer *, integer *, ftnlen, ftnlen); |
| 38821 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 38822 | static real bignum; |
| 38823 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 38824 | real *, integer *, integer *, real *, integer *, integer *); |
| 38825 | static integer indtau; |
| 38826 | extern /* Subroutine */ int sstedc_(char *, integer *, real *, real *, |
| 38827 | real *, integer *, real *, integer *, integer *, integer *, |
| 38828 | integer *), slacpy_(char *, integer *, integer *, real *, |
| 38829 | integer *, real *, integer *); |
| 38830 | static integer indwrk, liwmin; |
| 38831 | extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); |
| 38832 | extern doublereal slansy_(char *, char *, integer *, real *, integer *, |
| 38833 | real *); |
| 38834 | static integer llwork; |
| 38835 | static real smlnum; |
| 38836 | static logical lquery; |
| 38837 | extern /* Subroutine */ int sormtr_(char *, char *, char *, integer *, |
| 38838 | integer *, real *, integer *, real *, real *, integer *, real *, |
| 38839 | integer *, integer *), ssytrd_(char *, |
| 38840 | integer *, real *, integer *, real *, real *, real *, real *, |
| 38841 | integer *, integer *); |
| 38842 | |
| 38843 | |
| 38844 | /* |
| 38845 | -- LAPACK driver routine (version 3.2) -- |
| 38846 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 38847 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 38848 | November 2006 |
| 38849 | |
| 38850 | |
| 38851 | Purpose |
| 38852 | ======= |
| 38853 | |
| 38854 | SSYEVD computes all eigenvalues and, optionally, eigenvectors of a |
nothing calls this directly
no test coverage detected