|
version 1.12, 2012/12/14 14:22:54
|
version 1.13, 2014/01/27 09:24:36
|
|
Line 311
|
Line 311
|
| *> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
*> \author NAG Ltd. |
| * |
* |
| *> \date September 2012 |
*> \date November 2013 |
| * |
* |
| *> \ingroup complex16OTHERcomputational |
*> \ingroup complex16OTHERcomputational |
| * |
* |
|
Line 329
|
Line 329
|
| $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, |
$ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, |
| $ IWORK, LIWORK, INFO ) |
$ IWORK, LIWORK, INFO ) |
| * |
* |
| * -- LAPACK computational routine (version 3.4.2) -- |
* -- 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..-- |
| * September 2012 |
* November 2013 |
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| CHARACTER JOBZ, RANGE |
CHARACTER JOBZ, RANGE |
|
Line 408
|
Line 408
|
| WU = ZERO |
WU = ZERO |
| IIL = 0 |
IIL = 0 |
| IIU = 0 |
IIU = 0 |
| |
NSPLIT = 0 |
| |
|
| IF( VALEIG ) THEN |
IF( VALEIG ) THEN |
| * We do not reference VL, VU in the cases RANGE = 'I','A' |
* We do not reference VL, VU in the cases RANGE = 'I','A' |
| * The interval (WL, WU] contains all the wanted eigenvalues. |
* The interval (WL, WU] contains all the wanted eigenvalues. |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zstemr.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack