version 1.15, 2014/01/27 09:28:22
|
version 1.16, 2015/11/26 11:44:18
|
Line 263
|
Line 263
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date September 2012 |
*> \date November 2015 |
* |
* |
*> \ingroup doubleOTHERauxiliary |
*> \ingroup doubleOTHERauxiliary |
* |
* |
Line 283
|
Line 283
|
$ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, |
$ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, |
$ WORK, IWORK, INFO ) |
$ WORK, IWORK, 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 DOL, DOU, INFO, LDZ, M, N |
INTEGER DOL, DOU, INFO, LDZ, M, N |
Line 340
|
Line 340
|
* .. Executable Statements .. |
* .. Executable Statements .. |
* .. |
* .. |
|
|
|
INFO = 0 |
* The first N entries of WORK are reserved for the eigenvalues |
* The first N entries of WORK are reserved for the eigenvalues |
INDLD = N+1 |
INDLD = N+1 |
INDLLD= 2*N+1 |
INDLLD= 2*N+1 |