Subroutine */
| 2634 | } /* sgebrd_ */ |
| 2635 | |
| 2636 | /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, |
| 2637 | integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, |
| 2638 | integer *ldvr, real *work, integer *lwork, integer *info) |
| 2639 | { |
| 2640 | /* System generated locals */ |
| 2641 | integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 2642 | i__2, i__3; |
| 2643 | real r__1, r__2; |
| 2644 | |
| 2645 | /* Local variables */ |
| 2646 | static integer i__, k; |
| 2647 | static real r__, cs, sn; |
| 2648 | static integer ihi; |
| 2649 | static real scl; |
| 2650 | static integer ilo; |
| 2651 | static real dum[1], eps; |
| 2652 | static integer ibal; |
| 2653 | static char side[1]; |
| 2654 | static real anrm; |
| 2655 | static integer ierr, itau, iwrk, nout; |
| 2656 | extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, |
| 2657 | integer *, real *, real *); |
| 2658 | extern doublereal snrm2_(integer *, real *, integer *); |
| 2659 | extern logical lsame_(char *, char *); |
| 2660 | extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); |
| 2661 | extern doublereal slapy2_(real *, real *); |
| 2662 | extern /* Subroutine */ int slabad_(real *, real *); |
| 2663 | static logical scalea; |
| 2664 | static real cscale; |
| 2665 | extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, |
| 2666 | integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, |
| 2667 | integer *, integer *, real *, integer *); |
| 2668 | extern doublereal slamch_(char *), slange_(char *, integer *, |
| 2669 | integer *, real *, integer *, real *); |
| 2670 | extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real |
| 2671 | *, integer *, real *, real *, integer *, integer *), xerbla_(char |
| 2672 | *, integer *); |
| 2673 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 2674 | integer *, integer *, ftnlen, ftnlen); |
| 2675 | static logical select[1]; |
| 2676 | static real bignum; |
| 2677 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 2678 | real *, integer *, integer *, real *, integer *, integer *); |
| 2679 | extern integer isamax_(integer *, real *, integer *); |
| 2680 | extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, |
| 2681 | integer *, real *, integer *), slartg_(real *, real *, |
| 2682 | real *, real *, real *), sorghr_(integer *, integer *, integer *, |
| 2683 | real *, integer *, real *, real *, integer *, integer *), shseqr_( |
| 2684 | char *, char *, integer *, integer *, integer *, real *, integer * |
| 2685 | , real *, real *, real *, integer *, real *, integer *, integer *), strevc_(char *, char *, logical *, integer *, |
| 2686 | real *, integer *, real *, integer *, real *, integer *, integer * |
| 2687 | , integer *, real *, integer *); |
| 2688 | static integer minwrk, maxwrk; |
| 2689 | static logical wantvl; |
| 2690 | static real smlnum; |
| 2691 | static integer hswork; |
| 2692 | static logical lquery, wantvr; |
| 2693 |
nothing calls this directly
no test coverage detected