Subroutine */
| 15891 | } /* dlalsa_ */ |
| 15892 | |
| 15893 | /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer |
| 15894 | *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, |
| 15895 | doublereal *rcond, integer *rank, doublereal *work, integer *iwork, |
| 15896 | integer *info) |
| 15897 | { |
| 15898 | /* System generated locals */ |
| 15899 | integer b_dim1, b_offset, i__1, i__2; |
| 15900 | doublereal d__1; |
| 15901 | |
| 15902 | /* Local variables */ |
| 15903 | static integer c__, i__, j, k; |
| 15904 | static doublereal r__; |
| 15905 | static integer s, u, z__; |
| 15906 | static doublereal cs; |
| 15907 | static integer bx; |
| 15908 | static doublereal sn; |
| 15909 | static integer st, vt, nm1, st1; |
| 15910 | static doublereal eps; |
| 15911 | static integer iwk; |
| 15912 | static doublereal tol; |
| 15913 | static integer difl, difr; |
| 15914 | static doublereal rcnd; |
| 15915 | static integer perm, nsub; |
| 15916 | extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, |
| 15917 | doublereal *, integer *, doublereal *, doublereal *); |
| 15918 | static integer nlvl, sqre, bxst; |
| 15919 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 15920 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 15921 | integer *, doublereal *, doublereal *, integer *), |
| 15922 | dcopy_(integer *, doublereal *, integer *, doublereal *, integer |
| 15923 | *); |
| 15924 | static integer poles, sizei, nsize, nwork, icmpq1, icmpq2; |
| 15925 | |
| 15926 | extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, |
| 15927 | integer *, doublereal *, doublereal *, doublereal *, integer *, |
| 15928 | doublereal *, integer *, doublereal *, doublereal *, doublereal *, |
| 15929 | doublereal *, integer *, integer *, integer *, integer *, |
| 15930 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 15931 | integer *), dlalsa_(integer *, integer *, integer *, integer *, |
| 15932 | doublereal *, integer *, doublereal *, integer *, doublereal *, |
| 15933 | integer *, doublereal *, integer *, doublereal *, doublereal *, |
| 15934 | doublereal *, doublereal *, integer *, integer *, integer *, |
| 15935 | integer *, doublereal *, doublereal *, doublereal *, doublereal *, |
| 15936 | integer *, integer *), dlascl_(char *, integer *, integer *, |
| 15937 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 15938 | integer *, integer *); |
| 15939 | extern integer idamax_(integer *, doublereal *, integer *); |
| 15940 | extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer |
| 15941 | *, integer *, integer *, doublereal *, doublereal *, doublereal *, |
| 15942 | integer *, doublereal *, integer *, doublereal *, integer *, |
| 15943 | doublereal *, integer *), dlacpy_(char *, integer *, |
| 15944 | integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, |
| 15945 | doublereal *, doublereal *), dlaset_(char *, integer *, integer *, |
| 15946 | doublereal *, doublereal *, doublereal *, integer *), |
| 15947 | xerbla_(char *, integer *); |
| 15948 | static integer givcol; |
| 15949 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 15950 | extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, |
no test coverage detected