Subroutine */
| 55 | static doublereal c_b3192 = 2.; |
| 56 | |
| 57 | /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal * |
| 58 | d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, |
| 59 | integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer * |
| 60 | iwork, integer *info) |
| 61 | { |
| 62 | /* System generated locals */ |
| 63 | integer u_dim1, u_offset, vt_dim1, vt_offset, i__1, i__2; |
| 64 | doublereal d__1; |
| 65 | |
| 66 | /* Local variables */ |
| 67 | static integer i__, j, k; |
| 68 | static doublereal p, r__; |
| 69 | static integer z__, ic, ii, kk; |
| 70 | static doublereal cs; |
| 71 | static integer is, iu; |
| 72 | static doublereal sn; |
| 73 | static integer nm1; |
| 74 | static doublereal eps; |
| 75 | static integer ivt, difl, difr, ierr, perm, mlvl, sqre; |
| 76 | extern logical lsame_(char *, char *); |
| 77 | extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, |
| 78 | integer *, doublereal *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer * |
| 79 | , doublereal *, integer *), dswap_(integer *, doublereal *, |
| 80 | integer *, doublereal *, integer *); |
| 81 | static integer poles, iuplo, nsize, start; |
| 82 | extern /* Subroutine */ int dlasd0_(integer *, integer *, doublereal *, |
| 83 | doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 84 | integer *, integer *, doublereal *, integer *); |
| 85 | |
| 86 | extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, |
| 87 | integer *, doublereal *, doublereal *, doublereal *, integer *, |
| 88 | doublereal *, integer *, doublereal *, doublereal *, doublereal *, |
| 89 | doublereal *, integer *, integer *, integer *, integer *, |
| 90 | doublereal *, doublereal *, doublereal *, doublereal *, integer *, |
| 91 | integer *), dlascl_(char *, integer *, integer *, doublereal *, |
| 92 | doublereal *, integer *, integer *, doublereal *, integer *, |
| 93 | integer *), dlasdq_(char *, integer *, integer *, integer |
| 94 | *, integer *, integer *, doublereal *, doublereal *, doublereal *, |
| 95 | integer *, doublereal *, integer *, doublereal *, integer *, |
| 96 | doublereal *, integer *), dlaset_(char *, integer *, |
| 97 | integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, |
| 98 | doublereal *, doublereal *); |
| 99 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 100 | integer *, integer *, ftnlen, ftnlen); |
| 101 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 102 | static integer givcol; |
| 103 | extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); |
| 104 | static integer icompq; |
| 105 | static doublereal orgnrm; |
| 106 | static integer givnum, givptr, qstart, smlsiz, wstart, smlszp; |
| 107 | |
| 108 | |
| 109 | /* |
| 110 | -- LAPACK routine (version 3.2.2) -- |
| 111 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 112 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 113 | June 2010 |
| 114 |
no test coverage detected