version 1.1, 2015/11/26 11:44:23
|
version 1.2, 2016/08/27 15:27:13
|
Line 278
|
Line 278
|
$ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, |
$ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, |
$ IWORK, RWORK, TAU, WORK, LWORK, INFO ) |
$ IWORK, RWORK, TAU, WORK, LWORK, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.6.0) -- |
* -- LAPACK computational routine (version 3.6.1) -- |
* -- 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..-- |
* August 2015 |
* August 2015 |
Line 308
|
Line 308
|
* .. Local Scalars .. |
* .. Local Scalars .. |
LOGICAL FORWRD, WANTQ, WANTU, WANTV, LQUERY |
LOGICAL FORWRD, WANTQ, WANTU, WANTV, LQUERY |
INTEGER I, J, LWKOPT |
INTEGER I, J, LWKOPT |
COMPLEX*16 T |
|
* .. |
* .. |
* .. External Functions .. |
* .. External Functions .. |
LOGICAL LSAME |
LOGICAL LSAME |