version 1.18, 2018/05/29 07:17:56
|
version 1.20, 2023/08/07 08:38:53
|
Line 1
|
Line 1
|
*> \brief \b DLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. |
*> \brief \b DLAED8 used by DSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. |
* |
* |
* =========== DOCUMENTATION =========== |
* =========== DOCUMENTATION =========== |
* |
* |
Line 228
|
Line 228
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date December 2016 |
|
* |
|
*> \ingroup auxOTHERcomputational |
*> \ingroup auxOTHERcomputational |
* |
* |
*> \par Contributors: |
*> \par Contributors: |
Line 243
|
Line 241
|
$ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, |
$ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, |
$ GIVCOL, GIVNUM, INDXP, INDX, INFO ) |
$ GIVCOL, GIVNUM, INDXP, INDX, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.7.0) -- |
* -- LAPACK computational routine -- |
* -- 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..-- |
* December 2016 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, |
INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, |
Line 353
|
Line 350
|
Z( I ) = W( INDX( I ) ) |
Z( I ) = W( INDX( I ) ) |
40 CONTINUE |
40 CONTINUE |
* |
* |
* Calculate the allowable deflation tolerence |
* Calculate the allowable deflation tolerance |
* |
* |
IMAX = IDAMAX( N, Z, 1 ) |
IMAX = IDAMAX( N, Z, 1 ) |
JMAX = IDAMAX( N, D, 1 ) |
JMAX = IDAMAX( N, D, 1 ) |