version 1.17, 2018/05/29 07:18:17
|
version 1.18, 2023/08/07 08:39:21
|
Line 335
|
Line 335
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date April 2012 |
|
* |
|
*> \ingroup complex16GEeigen |
*> \ingroup complex16GEeigen |
* |
* |
*> \par Further Details: |
*> \par Further Details: |
Line 374
|
Line 372
|
$ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, |
$ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, |
$ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) |
$ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.7.0) -- |
* -- LAPACK driver 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..-- |
* April 2012 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER BALANC, JOBVL, JOBVR, SENSE |
CHARACTER BALANC, JOBVL, JOBVR, SENSE |
Line 710
|
Line 707
|
* |
* |
IF( .NOT.WANTSN ) THEN |
IF( .NOT.WANTSN ) THEN |
* |
* |
* compute eigenvectors (DTGEVC) and estimate condition |
* compute eigenvectors (ZTGEVC) and estimate condition |
* numbers (DTGSNA). Note that the definition of the condition |
* numbers (ZTGSNA). Note that the definition of the condition |
* number is not invariant under transformation (u,v) to |
* number is not invariant under transformation (u,v) to |
* (Q*u, Z*v), where (u,v) are eigenvectors of the generalized |
* (Q*u, Z*v), where (u,v) are eigenvectors of the generalized |
* Schur form (S,T), Q and Z are orthogonal matrices. In order |
* Schur form (S,T), Q and Z are orthogonal matrices. In order |