version 1.4, 2010/08/06 15:32:35
|
version 1.5, 2010/08/07 13:18:08
|
Line 2
|
Line 2
|
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, |
$ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, |
$ IWORK, LIWORK, INFO ) |
$ 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 339
|
Line 339
|
W( 1 ) = A( 1, 1 ) |
W( 1 ) = 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 |
* |
* |
Line 357
|
Line 360
|
* |
* |
ISCALE = 0 |
ISCALE = 0 |
ABSTLL = ABSTOL |
ABSTLL = ABSTOL |
VLL = VL |
IF (VALEIG) THEN |
VUU = VU |
VLL = VL |
|
VUU = VU |
|
END IF |
ANRM = DLANSY( 'M', UPLO, N, A, LDA, WORK ) |
ANRM = DLANSY( 'M', UPLO, N, A, LDA, WORK ) |
IF( ANRM.GT.ZERO .AND. ANRM.LT.RMIN ) THEN |
IF( ANRM.GT.ZERO .AND. ANRM.LT.RMIN ) THEN |
ISCALE = 1 |
ISCALE = 1 |