Subroutine */
| 39896 | } /* dsytrd_ */ |
| 39897 | |
| 39898 | /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, |
| 39899 | integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * |
| 39900 | ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, |
| 39901 | doublereal *work, integer *info) |
| 39902 | { |
| 39903 | /* System generated locals */ |
| 39904 | integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 39905 | i__2, i__3; |
| 39906 | doublereal d__1, d__2, d__3, d__4; |
| 39907 | |
| 39908 | /* Local variables */ |
| 39909 | static integer i__, j, k; |
| 39910 | static doublereal x[4] /* was [2][2] */; |
| 39911 | static integer j1, j2, n2, ii, ki, ip, is; |
| 39912 | static doublereal wi, wr, rec, ulp, beta, emax; |
| 39913 | static logical pair; |
| 39914 | extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, |
| 39915 | integer *); |
| 39916 | static logical allv; |
| 39917 | static integer ierr; |
| 39918 | static doublereal unfl, ovfl, smin; |
| 39919 | static logical over; |
| 39920 | static doublereal vmax; |
| 39921 | static integer jnxt; |
| 39922 | extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, |
| 39923 | integer *); |
| 39924 | static doublereal scale; |
| 39925 | extern logical lsame_(char *, char *); |
| 39926 | extern /* Subroutine */ int dgemv_(char *, integer *, integer *, |
| 39927 | doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 39928 | doublereal *, doublereal *, integer *); |
| 39929 | static doublereal remax; |
| 39930 | extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, |
| 39931 | doublereal *, integer *); |
| 39932 | static logical leftv, bothv; |
| 39933 | extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, |
| 39934 | integer *, doublereal *, integer *); |
| 39935 | static doublereal vcrit; |
| 39936 | static logical somev; |
| 39937 | static doublereal xnorm; |
| 39938 | extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, |
| 39939 | doublereal *, doublereal *, doublereal *, integer *, doublereal *, |
| 39940 | doublereal *, doublereal *, integer *, doublereal *, doublereal * |
| 39941 | , doublereal *, integer *, doublereal *, doublereal *, integer *), |
| 39942 | dlabad_(doublereal *, doublereal *); |
| 39943 | |
| 39944 | extern integer idamax_(integer *, doublereal *, integer *); |
| 39945 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 39946 | static doublereal bignum; |
| 39947 | static logical rightv; |
| 39948 | static doublereal smlnum; |
| 39949 | |
| 39950 | |
| 39951 | /* |
| 39952 | -- LAPACK routine (version 3.2) -- |
| 39953 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 39954 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 39955 | November 2006 |
no test coverage detected