diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-09-22 03:33:49 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-09-22 03:33:49 +0000 |
| commit | e9f3eef006375bda43c2c4657d996b19b3e96142 (patch) | |
| tree | e895c7a2ce52bad1263526d12a05a9aafa37112f /TESTING/LIN/zdrvgb.f | |
| parent | 7efafa84467956c9fb86a6711adeb554b376d349 (diff) | |
| download | lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.tar.gz lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.tar.bz2 lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.zip | |
Diffstat (limited to 'TESTING/LIN/zdrvgb.f')
| -rw-r--r-- | TESTING/LIN/zdrvgb.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/LIN/zdrvgb.f b/TESTING/LIN/zdrvgb.f index ad46b349..2856cca8 100644 --- a/TESTING/LIN/zdrvgb.f +++ b/TESTING/LIN/zdrvgb.f @@ -648,7 +648,7 @@ * Compare RWORK(2*NRHS+1) from ZGBSVX with the * computed reciprocal pivot growth RPVGRW * - IF( INFO.NE.0 ) THEN + IF( INFO.NE.0 .AND. INFO.LE.N) THEN ANRMPV = ZERO DO 70 J = 1, INFO DO 60 I = MAX( KU+2-J, 1 ), |