Subroutine */
| 15408 | } /* zlaqr2_ */ |
| 15409 | |
| 15410 | /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n, |
| 15411 | integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, |
| 15412 | integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, |
| 15413 | integer *ldz, integer *ns, integer *nd, doublecomplex *sh, |
| 15414 | doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, |
| 15415 | integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, |
| 15416 | doublecomplex *work, integer *lwork) |
| 15417 | { |
| 15418 | /* System generated locals */ |
| 15419 | integer h_dim1, h_offset, t_dim1, t_offset, v_dim1, v_offset, wv_dim1, |
| 15420 | wv_offset, z_dim1, z_offset, i__1, i__2, i__3, i__4; |
| 15421 | doublereal d__1, d__2, d__3, d__4, d__5, d__6; |
| 15422 | doublecomplex z__1, z__2; |
| 15423 | |
| 15424 | /* Local variables */ |
| 15425 | static integer i__, j; |
| 15426 | static doublecomplex s; |
| 15427 | static integer jw; |
| 15428 | static doublereal foo; |
| 15429 | static integer kln; |
| 15430 | static doublecomplex tau; |
| 15431 | static integer knt; |
| 15432 | static doublereal ulp; |
| 15433 | static integer lwk1, lwk2, lwk3; |
| 15434 | static doublecomplex beta; |
| 15435 | static integer kcol, info, nmin, ifst, ilst, ltop, krow; |
| 15436 | extern /* Subroutine */ int zlarf_(char *, integer *, integer *, |
| 15437 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 15438 | integer *, doublecomplex *); |
| 15439 | static integer infqr; |
| 15440 | extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, |
| 15441 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 15442 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 15443 | integer *); |
| 15444 | static integer kwtop; |
| 15445 | extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, |
| 15446 | doublecomplex *, integer *), dlabad_(doublereal *, doublereal *), |
| 15447 | zlaqr4_(logical *, logical *, integer *, integer *, integer *, |
| 15448 | doublecomplex *, integer *, doublecomplex *, integer *, integer *, |
| 15449 | doublecomplex *, integer *, doublecomplex *, integer *, integer * |
| 15450 | ); |
| 15451 | |
| 15452 | static doublereal safmin; |
| 15453 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 15454 | integer *, integer *, ftnlen, ftnlen); |
| 15455 | static doublereal safmax; |
| 15456 | extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, |
| 15457 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 15458 | integer *, integer *), zlarfg_(integer *, doublecomplex *, |
| 15459 | doublecomplex *, integer *, doublecomplex *), zlahqr_(logical *, |
| 15460 | logical *, integer *, integer *, integer *, doublecomplex *, |
| 15461 | integer *, doublecomplex *, integer *, integer *, doublecomplex *, |
| 15462 | integer *, integer *), zlacpy_(char *, integer *, integer *, |
| 15463 | doublecomplex *, integer *, doublecomplex *, integer *), |
| 15464 | zlaset_(char *, integer *, integer *, doublecomplex *, |
| 15465 | doublecomplex *, doublecomplex *, integer *); |
| 15466 | static doublereal smlnum; |
| 15467 | extern /* Subroutine */ int ztrexc_(char *, integer *, doublecomplex *, |
no test coverage detected