Subroutine */
| 39729 | } /* ssytrd_ */ |
| 39730 | |
| 39731 | /* Subroutine */ int strevc_(char *side, char *howmny, logical *select, |
| 39732 | integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, |
| 39733 | integer *ldvr, integer *mm, integer *m, real *work, integer *info) |
| 39734 | { |
| 39735 | /* System generated locals */ |
| 39736 | integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 39737 | i__2, i__3; |
| 39738 | real r__1, r__2, r__3, r__4; |
| 39739 | |
| 39740 | /* Local variables */ |
| 39741 | static integer i__, j, k; |
| 39742 | static real x[4] /* was [2][2] */; |
| 39743 | static integer j1, j2, n2, ii, ki, ip, is; |
| 39744 | static real wi, wr, rec, ulp, beta, emax; |
| 39745 | static logical pair, allv; |
| 39746 | static integer ierr; |
| 39747 | static real unfl, ovfl, smin; |
| 39748 | extern doublereal sdot_(integer *, real *, integer *, real *, integer *); |
| 39749 | static logical over; |
| 39750 | static real vmax; |
| 39751 | static integer jnxt; |
| 39752 | static real scale; |
| 39753 | extern logical lsame_(char *, char *); |
| 39754 | extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); |
| 39755 | static real remax; |
| 39756 | static logical leftv; |
| 39757 | extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, |
| 39758 | real *, integer *, real *, integer *, real *, real *, integer *); |
| 39759 | static logical bothv; |
| 39760 | static real vcrit; |
| 39761 | static logical somev; |
| 39762 | extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, |
| 39763 | integer *); |
| 39764 | static real xnorm; |
| 39765 | extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, |
| 39766 | real *, integer *), slaln2_(logical *, integer *, integer *, real |
| 39767 | *, real *, real *, integer *, real *, real *, real *, integer *, |
| 39768 | real *, real *, real *, integer *, real *, real *, integer *), |
| 39769 | slabad_(real *, real *); |
| 39770 | extern doublereal slamch_(char *); |
| 39771 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 39772 | static real bignum; |
| 39773 | extern integer isamax_(integer *, real *, integer *); |
| 39774 | static logical rightv; |
| 39775 | static real smlnum; |
| 39776 | |
| 39777 | |
| 39778 | /* |
| 39779 | -- LAPACK routine (version 3.2) -- |
| 39780 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 39781 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 39782 | November 2006 |
| 39783 | |
| 39784 | |
| 39785 | Purpose |
| 39786 | ======= |
| 39787 | |
| 39788 | STREVC computes some or all of the right and/or left eigenvectors of |
no test coverage detected