version 1.12, 2011/11/21 22:19:35
|
version 1.17, 2015/11/26 11:44:18
|
Line 1
|
Line 1
|
*> \brief \b DLASD6 |
*> \brief \b DLASD6 computes the SVD of an updated upper bidiagonal matrix obtained by merging two smaller ones by appending a row. Used by sbdsdc. |
* |
* |
* =========== DOCUMENTATION =========== |
* =========== DOCUMENTATION =========== |
* |
* |
Line 164
|
Line 164
|
*> row. |
*> row. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[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 will reintegrate the |
*> This contains the permutation which will reintegrate the |
Line 298
|
Line 298
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date November 2015 |
* |
* |
*> \ingroup auxOTHERauxiliary |
*> \ingroup auxOTHERauxiliary |
* |
* |
Line 314
|
Line 314
|
$ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, |
$ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, |
$ IWORK, INFO ) |
$ IWORK, INFO ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.4.0) -- |
* -- LAPACK auxiliary routine (version 3.6.0) -- |
* -- 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..-- |
* November 2011 |
* November 2015 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, |
INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, |
Line 414
|
Line 414
|
CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM, |
CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM, |
$ WORK( ISIGMA ), WORK( IW ), INFO ) |
$ WORK( ISIGMA ), WORK( IW ), INFO ) |
* |
* |
* Handle error returned |
* Report the possible convergence failure. |
* |
* |
IF( INFO.NE.0 ) THEN |
IF( INFO.NE.0 ) THEN |
CALL XERBLA( 'DLASD8', -INFO ) |
|
RETURN |
RETURN |
END IF |
END IF |
* |
* |