Subroutine */
| 6918 | } /* cgetrs_ */ |
| 6919 | |
| 6920 | /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, |
| 6921 | integer *lda, real *w, complex *work, integer *lwork, real *rwork, |
| 6922 | integer *lrwork, integer *iwork, integer *liwork, integer *info) |
| 6923 | { |
| 6924 | /* System generated locals */ |
| 6925 | integer a_dim1, a_offset, i__1, i__2; |
| 6926 | real r__1; |
| 6927 | |
| 6928 | /* Local variables */ |
| 6929 | static real eps; |
| 6930 | static integer inde; |
| 6931 | static real anrm; |
| 6932 | static integer imax; |
| 6933 | static real rmin, rmax; |
| 6934 | static integer lopt; |
| 6935 | static real sigma; |
| 6936 | extern logical lsame_(char *, char *); |
| 6937 | static integer iinfo; |
| 6938 | extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); |
| 6939 | static integer lwmin, liopt; |
| 6940 | static logical lower; |
| 6941 | static integer llrwk, lropt; |
| 6942 | static logical wantz; |
| 6943 | static integer indwk2, llwrk2; |
| 6944 | extern doublereal clanhe_(char *, char *, integer *, complex *, integer *, |
| 6945 | real *); |
| 6946 | static integer iscale; |
| 6947 | extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, |
| 6948 | real *, integer *, integer *, complex *, integer *, integer *), cstedc_(char *, integer *, real *, real *, complex *, |
| 6949 | integer *, complex *, integer *, real *, integer *, integer *, |
| 6950 | integer *, integer *); |
| 6951 | extern doublereal slamch_(char *); |
| 6952 | extern /* Subroutine */ int chetrd_(char *, integer *, complex *, integer |
| 6953 | *, real *, real *, complex *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer |
| 6954 | *, complex *, integer *); |
| 6955 | static real safmin; |
| 6956 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 6957 | integer *, integer *, ftnlen, ftnlen); |
| 6958 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 6959 | static real bignum; |
| 6960 | static integer indtau, indrwk, indwrk, liwmin; |
| 6961 | extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); |
| 6962 | static integer lrwmin; |
| 6963 | extern /* Subroutine */ int cunmtr_(char *, char *, char *, integer *, |
| 6964 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 6965 | complex *, integer *, integer *); |
| 6966 | static integer llwork; |
| 6967 | static real smlnum; |
| 6968 | static logical lquery; |
| 6969 | |
| 6970 | |
| 6971 | /* |
| 6972 | -- LAPACK driver routine (version 3.2) -- |
| 6973 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 6974 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 6975 | November 2006 |
| 6976 | |
| 6977 |
nothing calls this directly
no test coverage detected