Subroutine */
| 5095 | } /* sgeqrf_ */ |
| 5096 | |
| 5097 | /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, |
| 5098 | integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, |
| 5099 | real *work, integer *lwork, integer *iwork, integer *info) |
| 5100 | { |
| 5101 | /* System generated locals */ |
| 5102 | integer a_dim1, a_offset, u_dim1, u_offset, vt_dim1, vt_offset, i__1, |
| 5103 | i__2, i__3; |
| 5104 | |
| 5105 | /* Local variables */ |
| 5106 | static integer i__, ie, il, ir, iu, blk; |
| 5107 | static real dum[1], eps; |
| 5108 | static integer ivt, iscl; |
| 5109 | static real anrm; |
| 5110 | static integer idum[1], ierr, itau; |
| 5111 | extern logical lsame_(char *, char *); |
| 5112 | static integer chunk; |
| 5113 | extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, |
| 5114 | integer *, real *, real *, integer *, real *, integer *, real *, |
| 5115 | real *, integer *); |
| 5116 | static integer minmn, wrkbl, itaup, itauq, mnthr; |
| 5117 | static logical wntqa; |
| 5118 | static integer nwork; |
| 5119 | static logical wntqn, wntqo, wntqs; |
| 5120 | static integer bdspac; |
| 5121 | extern /* Subroutine */ int sbdsdc_(char *, char *, integer *, real *, |
| 5122 | real *, real *, integer *, real *, integer *, real *, integer *, |
| 5123 | real *, integer *, integer *), sgebrd_(integer *, |
| 5124 | integer *, real *, integer *, real *, real *, real *, real *, |
| 5125 | real *, integer *, integer *); |
| 5126 | extern doublereal slamch_(char *), slange_(char *, integer *, |
| 5127 | integer *, real *, integer *, real *); |
| 5128 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 5129 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 5130 | integer *, integer *, ftnlen, ftnlen); |
| 5131 | static real bignum; |
| 5132 | extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer |
| 5133 | *, real *, real *, integer *, integer *), slascl_(char *, integer |
| 5134 | *, integer *, real *, real *, integer *, integer *, real *, |
| 5135 | integer *, integer *), sgeqrf_(integer *, integer *, real |
| 5136 | *, integer *, real *, real *, integer *, integer *), slacpy_(char |
| 5137 | *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, |
| 5138 | real *, integer *), sorgbr_(char *, integer *, integer *, |
| 5139 | integer *, real *, integer *, real *, real *, integer *, integer * |
| 5140 | ); |
| 5141 | static integer ldwrkl; |
| 5142 | extern /* Subroutine */ int sormbr_(char *, char *, char *, integer *, |
| 5143 | integer *, integer *, real *, integer *, real *, real *, integer * |
| 5144 | , real *, integer *, integer *); |
| 5145 | static integer ldwrkr, minwrk, ldwrku, maxwrk; |
| 5146 | extern /* Subroutine */ int sorglq_(integer *, integer *, integer *, real |
| 5147 | *, integer *, real *, real *, integer *, integer *); |
| 5148 | static integer ldwkvt; |
| 5149 | static real smlnum; |
| 5150 | static logical wntqas; |
| 5151 | extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real |
| 5152 | *, integer *, real *, real *, integer *, integer *); |
| 5153 | static logical lquery; |
| 5154 |
nothing calls this directly
no test coverage detected