version 1.13, 2014/01/27 09:28:37
|
version 1.15, 2016/08/27 15:34:57
|
Line 171
|
Line 171
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date September 2012 |
*> \date November 2015 |
* |
* |
*> \ingroup complex16OTHERauxiliary |
*> \ingroup complex16OTHERauxiliary |
* |
* |
Line 195
|
Line 195
|
SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, |
SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, |
$ IHIZ, Z, LDZ, INFO ) |
$ IHIZ, Z, LDZ, INFO ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.4.2) -- |
* -- 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..-- |
* September 2012 |
* November 2015 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N |
INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N |
Line 211
|
Line 211
|
* ========================================================= |
* ========================================================= |
* |
* |
* .. Parameters .. |
* .. Parameters .. |
INTEGER ITMAX |
|
PARAMETER ( ITMAX = 30 ) |
|
COMPLEX*16 ZERO, ONE |
COMPLEX*16 ZERO, ONE |
PARAMETER ( ZERO = ( 0.0d0, 0.0d0 ), |
PARAMETER ( ZERO = ( 0.0d0, 0.0d0 ), |
$ ONE = ( 1.0d0, 0.0d0 ) ) |
$ ONE = ( 1.0d0, 0.0d0 ) ) |
Line 226
|
Line 224
|
$ V2, X, Y |
$ V2, X, Y |
DOUBLE PRECISION AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, |
DOUBLE PRECISION AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, |
$ SAFMIN, SMLNUM, SX, T2, TST, ULP |
$ SAFMIN, SMLNUM, SX, T2, TST, ULP |
INTEGER I, I1, I2, ITS, J, JHI, JLO, K, L, M, NH, NZ |
INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, |
|
$ NH, NZ |
* .. |
* .. |
* .. Local Arrays .. |
* .. Local Arrays .. |
COMPLEX*16 V( 2 ) |
COMPLEX*16 V( 2 ) |
Line 312
|
Line 311
|
I2 = N |
I2 = N |
END IF |
END IF |
* |
* |
|
* ITMAX is the total number of QR iterations allowed. |
|
* |
|
ITMAX = 30 * MAX( 10, NH ) |
|
* |
* The main loop begins here. I is the loop index and decreases from |
* The main loop begins here. I is the loop index and decreases from |
* IHI to ILO in steps of 1. Each iteration of the loop works |
* IHI to ILO in steps of 1. Each iteration of the loop works |
* with the active submatrix in rows and columns L to I. |
* with the active submatrix in rows and columns L to I. |