Subroutine */
| 2644 | } /* dgebrd_ */ |
| 2645 | |
| 2646 | /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal * |
| 2647 | a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, |
| 2648 | integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, |
| 2649 | integer *lwork, integer *info) |
| 2650 | { |
| 2651 | /* System generated locals */ |
| 2652 | integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 2653 | i__2, i__3; |
| 2654 | doublereal d__1, d__2; |
| 2655 | |
| 2656 | /* Local variables */ |
| 2657 | static integer i__, k; |
| 2658 | static doublereal r__, cs, sn; |
| 2659 | static integer ihi; |
| 2660 | static doublereal scl; |
| 2661 | static integer ilo; |
| 2662 | static doublereal dum[1], eps; |
| 2663 | static integer ibal; |
| 2664 | static char side[1]; |
| 2665 | static doublereal anrm; |
| 2666 | static integer ierr, itau; |
| 2667 | extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, |
| 2668 | doublereal *, integer *, doublereal *, doublereal *); |
| 2669 | static integer iwrk, nout; |
| 2670 | extern doublereal dnrm2_(integer *, doublereal *, integer *); |
| 2671 | extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, |
| 2672 | integer *); |
| 2673 | extern logical lsame_(char *, char *); |
| 2674 | extern doublereal dlapy2_(doublereal *, doublereal *); |
| 2675 | extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebak_( |
| 2676 | char *, char *, integer *, integer *, integer *, doublereal *, |
| 2677 | integer *, doublereal *, integer *, integer *), |
| 2678 | dgebal_(char *, integer *, doublereal *, integer *, integer *, |
| 2679 | integer *, doublereal *, integer *); |
| 2680 | static logical scalea; |
| 2681 | |
| 2682 | static doublereal cscale; |
| 2683 | extern doublereal dlange_(char *, integer *, integer *, doublereal *, |
| 2684 | integer *, doublereal *); |
| 2685 | extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, |
| 2686 | doublereal *, integer *, doublereal *, doublereal *, integer *, |
| 2687 | integer *), dlascl_(char *, integer *, integer *, doublereal *, |
| 2688 | doublereal *, integer *, integer *, doublereal *, integer *, |
| 2689 | integer *); |
| 2690 | extern integer idamax_(integer *, doublereal *, integer *); |
| 2691 | extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, |
| 2692 | doublereal *, integer *, doublereal *, integer *), |
| 2693 | dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, |
| 2694 | doublereal *), xerbla_(char *, integer *); |
| 2695 | static logical select[1]; |
| 2696 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 2697 | integer *, integer *, ftnlen, ftnlen); |
| 2698 | static doublereal bignum; |
| 2699 | extern /* Subroutine */ int dorghr_(integer *, integer *, integer *, |
| 2700 | doublereal *, integer *, doublereal *, doublereal *, integer *, |
| 2701 | integer *), dhseqr_(char *, char *, integer *, integer *, integer |
| 2702 | *, doublereal *, integer *, doublereal *, doublereal *, |
| 2703 | doublereal *, integer *, doublereal *, integer *, integer *), dtrevc_(char *, char *, logical *, integer *, |
nothing calls this directly
no test coverage detected