Subroutine */
| 4050 | } /* dgelqf_ */ |
| 4051 | |
| 4052 | /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, |
| 4053 | doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * |
| 4054 | s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, |
| 4055 | integer *iwork, integer *info) |
| 4056 | { |
| 4057 | /* System generated locals */ |
| 4058 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4; |
| 4059 | |
| 4060 | /* Local variables */ |
| 4061 | static integer ie, il, mm; |
| 4062 | static doublereal eps, anrm, bnrm; |
| 4063 | static integer itau, nlvl, iascl, ibscl; |
| 4064 | static doublereal sfmin; |
| 4065 | static integer minmn, maxmn, itaup, itauq, mnthr, nwork; |
| 4066 | extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebrd_( |
| 4067 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 4068 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 4069 | integer *); |
| 4070 | extern doublereal dlamch_(char *), dlange_(char *, integer *, |
| 4071 | integer *, doublereal *, integer *, doublereal *); |
| 4072 | extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, |
| 4073 | integer *, doublereal *, doublereal *, integer *, integer *), |
| 4074 | dlalsd_(char *, integer *, integer *, integer *, doublereal *, |
| 4075 | doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 4076 | doublereal *, integer *, integer *), dlascl_(char *, |
| 4077 | integer *, integer *, doublereal *, doublereal *, integer *, |
| 4078 | integer *, doublereal *, integer *, integer *), dgeqrf_( |
| 4079 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 4080 | doublereal *, integer *, integer *), dlacpy_(char *, integer *, |
| 4081 | integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, |
| 4082 | doublereal *, doublereal *, integer *), xerbla_(char *, |
| 4083 | integer *); |
| 4084 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 4085 | integer *, integer *, ftnlen, ftnlen); |
| 4086 | static doublereal bignum; |
| 4087 | extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, |
| 4088 | integer *, integer *, doublereal *, integer *, doublereal *, |
| 4089 | doublereal *, integer *, doublereal *, integer *, integer *); |
| 4090 | static integer wlalsd; |
| 4091 | extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, |
| 4092 | integer *, doublereal *, integer *, doublereal *, doublereal *, |
| 4093 | integer *, doublereal *, integer *, integer *); |
| 4094 | static integer ldwork; |
| 4095 | extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, |
| 4096 | integer *, doublereal *, integer *, doublereal *, doublereal *, |
| 4097 | integer *, doublereal *, integer *, integer *); |
| 4098 | static integer liwork, minwrk, maxwrk; |
| 4099 | static doublereal smlnum; |
| 4100 | static logical lquery; |
| 4101 | static integer smlsiz; |
| 4102 | |
| 4103 | |
| 4104 | /* |
| 4105 | -- LAPACK driver routine (version 3.2.2) -- |
| 4106 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 4107 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 4108 | June 2010 |
| 4109 |
nothing calls this directly
no test coverage detected