Subroutine */
| 5111 | } /* dgeqrf_ */ |
| 5112 | |
| 5113 | /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal * |
| 5114 | a, integer *lda, doublereal *s, doublereal *u, integer *ldu, |
| 5115 | doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, |
| 5116 | integer *iwork, integer *info) |
| 5117 | { |
| 5118 | /* System generated locals */ |
| 5119 | integer a_dim1, a_offset, u_dim1, u_offset, vt_dim1, vt_offset, i__1, |
| 5120 | i__2, i__3; |
| 5121 | |
| 5122 | /* Local variables */ |
| 5123 | static integer i__, ie, il, ir, iu, blk; |
| 5124 | static doublereal dum[1], eps; |
| 5125 | static integer ivt, iscl; |
| 5126 | static doublereal anrm; |
| 5127 | static integer idum[1], ierr, itau; |
| 5128 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 5129 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 5130 | integer *, doublereal *, doublereal *, integer *); |
| 5131 | extern logical lsame_(char *, char *); |
| 5132 | static integer chunk, minmn, wrkbl, itaup, itauq, mnthr; |
| 5133 | static logical wntqa; |
| 5134 | static integer nwork; |
| 5135 | static logical wntqn, wntqo, wntqs; |
| 5136 | extern /* Subroutine */ int dbdsdc_(char *, char *, integer *, doublereal |
| 5137 | *, doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 5138 | doublereal *, integer *, doublereal *, integer *, integer *), dgebrd_(integer *, integer *, doublereal *, |
| 5139 | integer *, doublereal *, doublereal *, doublereal *, doublereal *, |
| 5140 | doublereal *, integer *, integer *); |
| 5141 | extern doublereal dlamch_(char *), dlange_(char *, integer *, |
| 5142 | integer *, doublereal *, integer *, doublereal *); |
| 5143 | static integer bdspac; |
| 5144 | extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, |
| 5145 | integer *, doublereal *, doublereal *, integer *, integer *), |
| 5146 | dlascl_(char *, integer *, integer *, doublereal *, doublereal *, |
| 5147 | integer *, integer *, doublereal *, integer *, integer *), |
| 5148 | dgeqrf_(integer *, integer *, doublereal *, integer *, |
| 5149 | doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, |
| 5150 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 5151 | integer *), dlaset_(char *, integer *, integer *, |
| 5152 | doublereal *, doublereal *, doublereal *, integer *), |
| 5153 | xerbla_(char *, integer *), dorgbr_(char *, integer *, |
| 5154 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 5155 | doublereal *, integer *, integer *); |
| 5156 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 5157 | integer *, integer *, ftnlen, ftnlen); |
| 5158 | static doublereal bignum; |
| 5159 | extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, |
| 5160 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 5161 | doublereal *, integer *, doublereal *, integer *, integer *), dorglq_(integer *, integer *, integer *, |
| 5162 | doublereal *, integer *, doublereal *, doublereal *, integer *, |
| 5163 | integer *), dorgqr_(integer *, integer *, integer *, doublereal *, |
| 5164 | integer *, doublereal *, doublereal *, integer *, integer *); |
| 5165 | static integer ldwrkl, ldwrkr, minwrk, ldwrku, maxwrk, ldwkvt; |
| 5166 | static doublereal smlnum; |
| 5167 | static logical wntqas, lquery; |
| 5168 | |
| 5169 | |
| 5170 | /* |
nothing calls this directly
no test coverage detected