Subroutine */
| 13873 | } /* zlanhe_ */ |
| 13874 | |
| 13875 | /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n, |
| 13876 | integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, |
| 13877 | doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, |
| 13878 | integer *ldz, doublecomplex *work, integer *lwork, integer *info) |
| 13879 | { |
| 13880 | /* System generated locals */ |
| 13881 | integer h_dim1, h_offset, z_dim1, z_offset, i__1, i__2, i__3, i__4, i__5; |
| 13882 | doublereal d__1, d__2, d__3, d__4, d__5, d__6, d__7, d__8; |
| 13883 | doublecomplex z__1, z__2, z__3, z__4, z__5; |
| 13884 | |
| 13885 | /* Local variables */ |
| 13886 | static integer i__, k; |
| 13887 | static doublereal s; |
| 13888 | static doublecomplex aa, bb, cc, dd; |
| 13889 | static integer ld, nh, it, ks, kt, ku, kv, ls, ns, nw; |
| 13890 | static doublecomplex tr2, det; |
| 13891 | static integer inf, kdu, nho, nve, kwh, nsr, nwr, kwv, ndec, ndfl, kbot, |
| 13892 | nmin; |
| 13893 | static doublecomplex swap; |
| 13894 | static integer ktop; |
| 13895 | static doublecomplex zdum[1] /* was [1][1] */; |
| 13896 | static integer kacc22, itmax, nsmax, nwmax, kwtop; |
| 13897 | extern /* Subroutine */ int zlaqr3_(logical *, logical *, integer *, |
| 13898 | integer *, integer *, integer *, doublecomplex *, integer *, |
| 13899 | integer *, integer *, doublecomplex *, integer *, integer *, |
| 13900 | integer *, doublecomplex *, doublecomplex *, integer *, integer *, |
| 13901 | doublecomplex *, integer *, integer *, doublecomplex *, integer * |
| 13902 | , doublecomplex *, integer *), zlaqr4_(logical *, logical *, |
| 13903 | integer *, integer *, integer *, doublecomplex *, integer *, |
| 13904 | doublecomplex *, integer *, integer *, doublecomplex *, integer *, |
| 13905 | doublecomplex *, integer *, integer *), zlaqr5_(logical *, |
| 13906 | logical *, integer *, integer *, integer *, integer *, integer *, |
| 13907 | doublecomplex *, doublecomplex *, integer *, integer *, integer *, |
| 13908 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 13909 | doublecomplex *, integer *, integer *, doublecomplex *, integer *, |
| 13910 | integer *, doublecomplex *, integer *); |
| 13911 | static integer nibble; |
| 13912 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 13913 | integer *, integer *, ftnlen, ftnlen); |
| 13914 | static char jbcmpz[2]; |
| 13915 | static doublecomplex rtdisc; |
| 13916 | static integer nwupbd; |
| 13917 | static logical sorted; |
| 13918 | extern /* Subroutine */ int zlahqr_(logical *, logical *, integer *, |
| 13919 | integer *, integer *, doublecomplex *, integer *, doublecomplex *, |
| 13920 | integer *, integer *, doublecomplex *, integer *, integer *), |
| 13921 | zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, |
| 13922 | doublecomplex *, integer *); |
| 13923 | static integer lwkopt; |
| 13924 | |
| 13925 | |
| 13926 | /* |
| 13927 | -- LAPACK auxiliary routine (version 3.2) -- |
| 13928 | Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. |
| 13929 | November 2006 |
| 13930 | |
| 13931 | |
| 13932 | Purpose |