Subroutine */
| 38947 | } /* dsterf_ */ |
| 38948 | |
| 38949 | /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal * |
| 38950 | a, integer *lda, doublereal *w, doublereal *work, integer *lwork, |
| 38951 | integer *iwork, integer *liwork, integer *info) |
| 38952 | { |
| 38953 | /* System generated locals */ |
| 38954 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 38955 | doublereal d__1; |
| 38956 | |
| 38957 | /* Local variables */ |
| 38958 | static doublereal eps; |
| 38959 | static integer inde; |
| 38960 | static doublereal anrm, rmin, rmax; |
| 38961 | static integer lopt; |
| 38962 | extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, |
| 38963 | integer *); |
| 38964 | static doublereal sigma; |
| 38965 | extern logical lsame_(char *, char *); |
| 38966 | static integer iinfo, lwmin, liopt; |
| 38967 | static logical lower, wantz; |
| 38968 | static integer indwk2, llwrk2; |
| 38969 | |
| 38970 | static integer iscale; |
| 38971 | extern /* Subroutine */ int dlascl_(char *, integer *, integer *, |
| 38972 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 38973 | integer *, integer *), dstedc_(char *, integer *, |
| 38974 | doublereal *, doublereal *, doublereal *, integer *, doublereal *, |
| 38975 | integer *, integer *, integer *, integer *), dlacpy_( |
| 38976 | char *, integer *, integer *, doublereal *, integer *, doublereal |
| 38977 | *, integer *); |
| 38978 | static doublereal safmin; |
| 38979 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 38980 | integer *, integer *, ftnlen, ftnlen); |
| 38981 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 38982 | static doublereal bignum; |
| 38983 | static integer indtau; |
| 38984 | extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, |
| 38985 | integer *); |
| 38986 | extern doublereal dlansy_(char *, char *, integer *, doublereal *, |
| 38987 | integer *, doublereal *); |
| 38988 | static integer indwrk, liwmin; |
| 38989 | extern /* Subroutine */ int dormtr_(char *, char *, char *, integer *, |
| 38990 | integer *, doublereal *, integer *, doublereal *, doublereal *, |
| 38991 | integer *, doublereal *, integer *, integer *), dsytrd_(char *, integer *, doublereal *, integer *, |
| 38992 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 38993 | integer *); |
| 38994 | static integer llwork; |
| 38995 | static doublereal smlnum; |
| 38996 | static logical lquery; |
| 38997 | |
| 38998 | |
| 38999 | /* |
| 39000 | -- LAPACK driver routine (version 3.2) -- |
| 39001 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 39002 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 39003 | November 2006 |
| 39004 | |
| 39005 | |
| 39006 | Purpose |
nothing calls this directly
no test coverage detected