version 1.15, 2016/08/27 15:34:31
|
version 1.18, 2018/05/29 06:55:19
|
Line 2
|
Line 2
|
* |
* |
* =========== DOCUMENTATION =========== |
* =========== DOCUMENTATION =========== |
* |
* |
* Online html documentation available at |
* Online html documentation available at |
* http://www.netlib.org/lapack/explore-html/ |
* http://www.netlib.org/lapack/explore-html/ |
* |
* |
*> \htmlonly |
*> \htmlonly |
*> Download DLASD2 + dependencies |
*> Download DLASD2 + dependencies |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasd2.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasd2.f"> |
*> [TGZ]</a> |
*> [TGZ]</a> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasd2.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasd2.f"> |
*> [ZIP]</a> |
*> [ZIP]</a> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasd2.f"> |
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasd2.f"> |
*> [TXT]</a> |
*> [TXT]</a> |
*> \endhtmlonly |
*> \endhtmlonly |
* |
* |
* Definition: |
* Definition: |
* =========== |
* =========== |
Line 21
|
Line 21
|
* SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, |
* SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, |
* LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, |
* LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, |
* IDXC, IDXQ, COLTYP, INFO ) |
* IDXC, IDXQ, COLTYP, INFO ) |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
* INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE |
* INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE |
* DOUBLE PRECISION ALPHA, BETA |
* DOUBLE PRECISION ALPHA, BETA |
Line 33
|
Line 33
|
* $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), |
* $ U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ), |
* $ Z( * ) |
* $ Z( * ) |
* .. |
* .. |
* |
* |
* |
* |
*> \par Purpose: |
*> \par Purpose: |
* ============= |
* ============= |
Line 190
|
Line 190
|
*> |
*> |
*> \param[out] IDXP |
*> \param[out] IDXP |
*> \verbatim |
*> \verbatim |
*> IDXP is INTEGER array dimension(N) |
*> IDXP is INTEGER array, dimension(N) |
*> This will contain the permutation used to place deflated |
*> This will contain the permutation used to place deflated |
*> values of D at the end of the array. On output IDXP(2:K) |
*> values of D at the end of the array. On output IDXP(2:K) |
*> points to the nondeflated D-values and IDXP(K+1:N) |
*> points to the nondeflated D-values and IDXP(K+1:N) |
Line 199
|
Line 199
|
*> |
*> |
*> \param[out] IDX |
*> \param[out] IDX |
*> \verbatim |
*> \verbatim |
*> IDX is INTEGER array dimension(N) |
*> IDX is INTEGER array, dimension(N) |
*> This will contain the permutation used to sort the contents of |
*> This will contain the permutation used to sort the contents of |
*> D into ascending order. |
*> D into ascending order. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[out] IDXC |
*> \param[out] IDXC |
*> \verbatim |
*> \verbatim |
*> IDXC is INTEGER array dimension(N) |
*> IDXC is INTEGER array, dimension(N) |
*> This will contain the permutation used to arrange the columns |
*> This will contain the permutation used to arrange the columns |
*> of the deflated U matrix into three groups: the first group |
*> of the deflated U matrix into three groups: the first group |
*> contains non-zero entries only at and above NL, the second |
*> contains non-zero entries only at and above NL, the second |
Line 216
|
Line 216
|
*> |
*> |
*> \param[in,out] IDXQ |
*> \param[in,out] IDXQ |
*> \verbatim |
*> \verbatim |
*> IDXQ is INTEGER array dimension(N) |
*> IDXQ is INTEGER array, dimension(N) |
*> This contains the permutation which separately sorts the two |
*> This contains the permutation which separately sorts the two |
*> sub-problems in D into ascending order. Note that entries in |
*> sub-problems in D into ascending order. Note that entries in |
*> the first hlaf of this permutation must first be moved one |
*> the first hlaf of this permutation must first be moved one |
Line 226
|
Line 226
|
*> |
*> |
*> \param[out] COLTYP |
*> \param[out] COLTYP |
*> \verbatim |
*> \verbatim |
*> COLTYP is INTEGER array dimension(N) |
*> COLTYP is INTEGER array, dimension(N) |
*> As workspace, this will contain a label which will indicate |
*> As workspace, this will contain a label which will indicate |
*> which of the following types a column in the U2 matrix or a |
*> which of the following types a column in the U2 matrix or a |
*> row in the VT2 matrix is: |
*> row in the VT2 matrix is: |
Line 249
|
Line 249
|
* Authors: |
* Authors: |
* ======== |
* ======== |
* |
* |
*> \author Univ. of Tennessee |
*> \author Univ. of Tennessee |
*> \author Univ. of California Berkeley |
*> \author Univ. of California Berkeley |
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date September 2012 |
*> \date June 2017 |
* |
* |
*> \ingroup auxOTHERauxiliary |
*> \ingroup OTHERauxiliary |
* |
* |
*> \par Contributors: |
*> \par Contributors: |
* ================== |
* ================== |
Line 269
|
Line 269
|
$ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, |
$ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, |
$ IDXC, IDXQ, COLTYP, INFO ) |
$ IDXC, IDXQ, COLTYP, INFO ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.4.2) -- |
* -- LAPACK auxiliary routine (version 3.7.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* September 2012 |
* June 2017 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE |
INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE |