Function zlaqr2_

numpy/linalg/lapack_lite/f2c_z_lapack.c:14828–15408

Subroutine */

} /* zlaqr1_ */

/* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n,
	integer *ktop, integer *kbot, integer *nw, doublecomplex *h__,
	integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__,
	integer *ldz, integer *ns, integer *nd, doublecomplex *sh,
	doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t,
	integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv,
	doublecomplex *work, integer *lwork)
{
    /* System generated locals */
    integer h_dim1, h_offset, t_dim1, t_offset, v_dim1, v_offset, wv_dim1,
	    wv_offset, z_dim1, z_offset, i__1, i__2, i__3, i__4;
    doublereal d__1, d__2, d__3, d__4, d__5, d__6;
    doublecomplex z__1, z__2;

    /* Local variables */
    static integer i__, j;
    static doublecomplex s;
    static integer jw;
    static doublereal foo;
    static integer kln;
    static doublecomplex tau;
    static integer knt;
    static doublereal ulp;
    static integer lwk1, lwk2;
    static doublecomplex beta;
    static integer kcol, info, ifst, ilst, ltop, krow;
    extern /* Subroutine */ int zlarf_(char *, integer *, integer *,
	    doublecomplex *, integer *, doublecomplex *, doublecomplex *,
	    integer *, doublecomplex *);
    static integer infqr;
    extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *,
	    integer *, doublecomplex *, doublecomplex *, integer *,
	    doublecomplex *, integer *, doublecomplex *, doublecomplex *,
	    integer *);
    static integer kwtop;
    extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *,
	    doublecomplex *, integer *), dlabad_(doublereal *, doublereal *);

    static doublereal safmin, safmax;
    extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *,
	    doublecomplex *, integer *, doublecomplex *, doublecomplex *,
	    integer *, integer *), zlarfg_(integer *, doublecomplex *,
	    doublecomplex *, integer *, doublecomplex *), zlahqr_(logical *,
	    logical *, integer *, integer *, integer *, doublecomplex *,
	    integer *, doublecomplex *, integer *, integer *, doublecomplex *,
	     integer *, integer *), zlacpy_(char *, integer *, integer *,
	    doublecomplex *, integer *, doublecomplex *, integer *),
	    zlaset_(char *, integer *, integer *, doublecomplex *,
	    doublecomplex *, doublecomplex *, integer *);
    static doublereal smlnum;
    extern /* Subroutine */ int ztrexc_(char *, integer *, doublecomplex *,
	    integer *, doublecomplex *, integer *, integer *, integer *,
	    integer *);
    static integer lwkopt;
    extern /* Subroutine */ int zunmhr_(char *, char *, integer *, integer *,
	    integer *, integer *, doublecomplex *, integer *, doublecomplex *,
	     doublecomplex *, integer *, doublecomplex *, integer *, integer *
	    );