Subroutine */
| 6959 | } /* zgetrs_ */ |
| 6960 | |
| 6961 | /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, |
| 6962 | doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, |
| 6963 | integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, |
| 6964 | integer *liwork, integer *info) |
| 6965 | { |
| 6966 | /* System generated locals */ |
| 6967 | integer a_dim1, a_offset, i__1, i__2; |
| 6968 | doublereal d__1; |
| 6969 | |
| 6970 | /* Local variables */ |
| 6971 | static doublereal eps; |
| 6972 | static integer inde; |
| 6973 | static doublereal anrm; |
| 6974 | static integer imax; |
| 6975 | static doublereal rmin, rmax; |
| 6976 | static integer lopt; |
| 6977 | extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, |
| 6978 | integer *); |
| 6979 | static doublereal sigma; |
| 6980 | extern logical lsame_(char *, char *); |
| 6981 | static integer iinfo, lwmin, liopt; |
| 6982 | static logical lower; |
| 6983 | static integer llrwk, lropt; |
| 6984 | static logical wantz; |
| 6985 | static integer indwk2, llwrk2; |
| 6986 | |
| 6987 | static integer iscale; |
| 6988 | static doublereal safmin; |
| 6989 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 6990 | integer *, integer *, ftnlen, ftnlen); |
| 6991 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 6992 | static doublereal bignum; |
| 6993 | extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, |
| 6994 | integer *, doublereal *); |
| 6995 | static integer indtau; |
| 6996 | extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, |
| 6997 | integer *), zlascl_(char *, integer *, integer *, doublereal *, |
| 6998 | doublereal *, integer *, integer *, doublecomplex *, integer *, |
| 6999 | integer *), zstedc_(char *, integer *, doublereal *, |
| 7000 | doublereal *, doublecomplex *, integer *, doublecomplex *, |
| 7001 | integer *, doublereal *, integer *, integer *, integer *, integer |
| 7002 | *); |
| 7003 | static integer indrwk, indwrk, liwmin; |
| 7004 | extern /* Subroutine */ int zhetrd_(char *, integer *, doublecomplex *, |
| 7005 | integer *, doublereal *, doublereal *, doublecomplex *, |
| 7006 | doublecomplex *, integer *, integer *), zlacpy_(char *, |
| 7007 | integer *, integer *, doublecomplex *, integer *, doublecomplex *, |
| 7008 | integer *); |
| 7009 | static integer lrwmin, llwork; |
| 7010 | static doublereal smlnum; |
| 7011 | static logical lquery; |
| 7012 | extern /* Subroutine */ int zunmtr_(char *, char *, char *, integer *, |
| 7013 | integer *, doublecomplex *, integer *, doublecomplex *, |
| 7014 | doublecomplex *, integer *, doublecomplex *, integer *, integer *); |
| 7015 | |
| 7016 | |
| 7017 | /* |
| 7018 | -- LAPACK driver routine (version 3.2) -- |
nothing calls this directly
no test coverage detected