version 1.12, 2012/12/14 14:22:48
|
version 1.13, 2014/01/27 09:24:36
|
Line 43
|
Line 43
|
*> Optionally Z may be postmultiplied into an input unitary |
*> Optionally Z may be postmultiplied into an input unitary |
*> matrix Q so that this routine can give the Schur factorization |
*> matrix Q so that this routine can give the Schur factorization |
*> of a matrix A which has been reduced to the Hessenberg form H |
*> of a matrix A which has been reduced to the Hessenberg form H |
*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*H*(QZ)**H. |
*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*T*(QZ)**H. |
*> \endverbatim |
*> \endverbatim |
* |
* |
* Arguments: |
* Arguments: |
Line 216
|
Line 216
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2011 |
*> \date November 2013 |
* |
* |
*> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
* |
* |
Line 299
|
Line 299
|
SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, |
SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, |
$ WORK, LWORK, INFO ) |
$ WORK, LWORK, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.4.0) -- |
* -- LAPACK computational routine (version 3.5.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 2013 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N |
INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N |