version 1.4, 2010/08/06 15:32:41
|
version 1.5, 2010/08/07 13:18:09
|
Line 2
|
Line 2
|
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, |
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, |
$ RWORK, LRWORK, IWORK, LIWORK, INFO ) |
$ RWORK, LRWORK, IWORK, LIWORK, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.2) -- |
* -- LAPACK driver routine (version 3.2.2) -- |
* -- 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 2006 |
* June 2010 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER JOBZ, RANGE, UPLO |
CHARACTER JOBZ, RANGE, UPLO |
Line 365
|
Line 365
|
W( 1 ) = DBLE( A( 1, 1 ) ) |
W( 1 ) = DBLE( A( 1, 1 ) ) |
END IF |
END IF |
END IF |
END IF |
IF( WANTZ ) |
IF( WANTZ ) THEN |
$ Z( 1, 1 ) = ONE |
Z( 1, 1 ) = ONE |
|
ISUPPZ( 1 ) = 1 |
|
ISUPPZ( 2 ) = 1 |
|
END IF |
RETURN |
RETURN |
END IF |
END IF |
* |
* |