diff options
| author | langou <langou@users.noreply.github.com> | 2015-12-10 03:08:12 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-12-10 03:08:12 +0000 |
| commit | 6b580c7301f7803387187dfe3b63b358f5db1bf5 (patch) | |
| tree | 9d04cf1b6a323fdbb4bfa43012ce2d649d31d62a /SRC/dgeevx.f | |
| parent | 9dbe6d0045c005dd125d2088b5b5e5a68c3b3585 (diff) | |
| download | lapack-6b580c7301f7803387187dfe3b63b358f5db1bf5.tar.gz lapack-6b580c7301f7803387187dfe3b63b358f5db1bf5.tar.bz2 lapack-6b580c7301f7803387187dfe3b63b358f5db1bf5.zip | |
Patch from Andreas Noack (MIT).
The code for DGEEV was checking the INFO parameter returned by DHSEQR as
IF( INFO.GT.0 )THEN "QUIT"
Andreas proposed to check
IF( INFO.NE.0 )THEN "QUIT"
I am fine with the modification. Not terribly excited but fine.
There is really no reason for the case ( INFO.LT.0 ) to happen, so we should
not have to deal with this case. If this happen, it is really a bug and we
should be notified. But, at this point, why not.
I applied the proposed patch to xGEEV and xGEEVX.
Julien.
Diffstat (limited to 'SRC/dgeevx.f')
| -rw-r--r-- | SRC/dgeevx.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dgeevx.f b/SRC/dgeevx.f index 81f30f93..8d80d782 100644 --- a/SRC/dgeevx.f +++ b/SRC/dgeevx.f @@ -572,9 +572,9 @@ $ WORK( IWRK ), LWORK-IWRK+1, INFO ) END IF * -* If INFO > 0 from DHSEQR, then quit +* If INFO .NE. 0 from DHSEQR, then quit * - IF( INFO.GT.0 ) + IF( INFO.NE.0 ) $ GO TO 50 * IF( WANTVL .OR. WANTVR ) THEN |