version 1.4, 2010/08/06 15:32:23
|
version 1.5, 2010/08/07 13:18:06
|
Line 2
|
Line 2
|
$ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, |
$ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, |
$ IWORK, LIWORK, BWORK, INFO ) |
$ IWORK, LIWORK, BWORK, 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 JOBVS, SENSE, SORT |
CHARACTER JOBVS, SENSE, SORT |
Line 226
|
Line 226
|
WANTSV = LSAME( SENSE, 'V' ) |
WANTSV = LSAME( SENSE, 'V' ) |
WANTSB = LSAME( SENSE, 'B' ) |
WANTSB = LSAME( SENSE, 'B' ) |
LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1 ) |
LQUERY = ( LWORK.EQ.-1 .OR. LIWORK.EQ.-1 ) |
|
* |
IF( ( .NOT.WANTVS ) .AND. ( .NOT.LSAME( JOBVS, 'N' ) ) ) THEN |
IF( ( .NOT.WANTVS ) .AND. ( .NOT.LSAME( JOBVS, 'N' ) ) ) THEN |
INFO = -1 |
INFO = -1 |
ELSE IF( ( .NOT.WANTST ) .AND. ( .NOT.LSAME( SORT, 'N' ) ) ) THEN |
ELSE IF( ( .NOT.WANTST ) .AND. ( .NOT.LSAME( SORT, 'N' ) ) ) THEN |
Line 294
|
Line 295
|
IF( INFO.NE.0 ) THEN |
IF( INFO.NE.0 ) THEN |
CALL XERBLA( 'DGEESX', -INFO ) |
CALL XERBLA( 'DGEESX', -INFO ) |
RETURN |
RETURN |
|
ELSE IF( LQUERY ) THEN |
|
RETURN |
END IF |
END IF |
* |
* |
* Quick return if possible |
* Quick return if possible |