Subroutine */
| 12734 | } /* zlalsa_ */ |
| 12735 | |
| 12736 | /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer |
| 12737 | *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, |
| 12738 | doublereal *rcond, integer *rank, doublecomplex *work, doublereal * |
| 12739 | rwork, integer *iwork, integer *info) |
| 12740 | { |
| 12741 | /* System generated locals */ |
| 12742 | integer b_dim1, b_offset, i__1, i__2, i__3, i__4, i__5, i__6; |
| 12743 | doublereal d__1; |
| 12744 | doublecomplex z__1; |
| 12745 | |
| 12746 | /* Local variables */ |
| 12747 | static integer c__, i__, j, k; |
| 12748 | static doublereal r__; |
| 12749 | static integer s, u, z__; |
| 12750 | static doublereal cs; |
| 12751 | static integer bx; |
| 12752 | static doublereal sn; |
| 12753 | static integer st, vt, nm1, st1; |
| 12754 | static doublereal eps; |
| 12755 | static integer iwk; |
| 12756 | static doublereal tol; |
| 12757 | static integer difl, difr; |
| 12758 | static doublereal rcnd; |
| 12759 | static integer jcol, irwb, perm, nsub, nlvl, sqre, bxst, jrow, irwu, |
| 12760 | jimag; |
| 12761 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 12762 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 12763 | integer *, doublereal *, doublereal *, integer *); |
| 12764 | static integer jreal, irwib, poles, sizei, irwrb, nsize; |
| 12765 | extern /* Subroutine */ int zdrot_(integer *, doublecomplex *, integer *, |
| 12766 | doublecomplex *, integer *, doublereal *, doublereal *), zcopy_( |
| 12767 | integer *, doublecomplex *, integer *, doublecomplex *, integer *) |
| 12768 | ; |
| 12769 | static integer irwvt, icmpq1, icmpq2; |
| 12770 | |
| 12771 | extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, |
| 12772 | integer *, doublereal *, doublereal *, doublereal *, integer *, |
| 12773 | doublereal *, integer *, doublereal *, doublereal *, doublereal *, |
| 12774 | doublereal *, integer *, integer *, integer *, integer *, |
| 12775 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 12776 | integer *), dlascl_(char *, integer *, integer *, doublereal *, |
| 12777 | doublereal *, integer *, integer *, doublereal *, integer *, |
| 12778 | integer *); |
| 12779 | extern integer idamax_(integer *, doublereal *, integer *); |
| 12780 | extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer |
| 12781 | *, integer *, integer *, doublereal *, doublereal *, doublereal *, |
| 12782 | integer *, doublereal *, integer *, doublereal *, integer *, |
| 12783 | doublereal *, integer *), dlaset_(char *, integer *, |
| 12784 | integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, |
| 12785 | doublereal *, doublereal *), xerbla_(char *, integer *); |
| 12786 | static integer givcol; |
| 12787 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 12788 | extern /* Subroutine */ int zlalsa_(integer *, integer *, integer *, |
| 12789 | integer *, doublecomplex *, integer *, doublecomplex *, integer *, |
| 12790 | doublereal *, integer *, doublereal *, integer *, doublereal *, |
| 12791 | doublereal *, doublereal *, doublereal *, integer *, integer *, |
| 12792 | integer *, integer *, doublereal *, doublereal *, doublereal *, |
| 12793 | doublereal *, integer *, integer *), zlascl_(char *, integer *, |
no test coverage detected