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 | |
| parent | 7efafa84467956c9fb86a6711adeb554b376d349 (diff) | |
| download | lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.tar.gz lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.tar.bz2 lapack-e9f3eef006375bda43c2c4657d996b19b3e96142.zip | |
| -rw-r--r-- | TESTING/LIN/cdrvgb.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/cdrvge.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/cdrvhex.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvgb.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvge.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvgb.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvge.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvgb.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvge.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvhex.f | 2 |
10 files changed, 10 insertions, 10 deletions
diff --git a/TESTING/LIN/cdrvgb.f b/TESTING/LIN/cdrvgb.f index b7e011ac..3b8b4547 100644 --- a/TESTING/LIN/cdrvgb.f +++ b/TESTING/LIN/cdrvgb.f @@ -648,7 +648,7 @@ * Compare RWORK(2*NRHS+1) from CGBSVX 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 ), diff --git a/TESTING/LIN/cdrvge.f b/TESTING/LIN/cdrvge.f index 3b9683b9..c75fdad3 100644 --- a/TESTING/LIN/cdrvge.f +++ b/TESTING/LIN/cdrvge.f @@ -553,7 +553,7 @@ * Compare RWORK(2*NRHS+1) from CGESVX with the * computed reciprocal pivot growth factor RPVGRW * - IF( INFO.NE.0 ) THEN + IF( INFO.NE.0 .AND. INFO.LE.N) THEN RPVGRW = CLANTR( 'M', 'U', 'N', INFO, INFO, $ AFAC, LDA, RDUM ) IF( RPVGRW.EQ.ZERO ) THEN diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f index a9705f97..8a88c099 100644 --- a/TESTING/LIN/cdrvhex.f +++ b/TESTING/LIN/cdrvhex.f @@ -614,7 +614,7 @@ $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, - $ RWORK, INFO ) + $ RWORK(2*NRHS+1), INFO ) * * Adjust the expected value of INFO to account for * pivoting. diff --git a/TESTING/LIN/ddrvgb.f b/TESTING/LIN/ddrvgb.f index 6258f4b0..8dc94905 100644 --- a/TESTING/LIN/ddrvgb.f +++ b/TESTING/LIN/ddrvgb.f @@ -648,7 +648,7 @@ * Compare WORK(1) from DGBSVX with the computed * reciprocal pivot growth factor 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 ), diff --git a/TESTING/LIN/ddrvge.f b/TESTING/LIN/ddrvge.f index 5a16a0cf..f0bdea4d 100644 --- a/TESTING/LIN/ddrvge.f +++ b/TESTING/LIN/ddrvge.f @@ -552,7 +552,7 @@ * Compare WORK(1) from DGESVX with the computed * reciprocal pivot growth factor RPVGRW * - IF( INFO.NE.0 ) THEN + IF( INFO.NE.0 .AND. INFO.LE.N) THEN RPVGRW = DLANTR( 'M', 'U', 'N', INFO, INFO, $ AFAC, LDA, WORK ) IF( RPVGRW.EQ.ZERO ) THEN diff --git a/TESTING/LIN/sdrvgb.f b/TESTING/LIN/sdrvgb.f index f25d7031..5bfd607c 100644 --- a/TESTING/LIN/sdrvgb.f +++ b/TESTING/LIN/sdrvgb.f @@ -648,7 +648,7 @@ * Compare WORK(1) from SGBSVX with the computed * reciprocal pivot growth factor 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 ), diff --git a/TESTING/LIN/sdrvge.f b/TESTING/LIN/sdrvge.f index dd7ba9d3..158492f4 100644 --- a/TESTING/LIN/sdrvge.f +++ b/TESTING/LIN/sdrvge.f @@ -552,7 +552,7 @@ * Compare WORK(1) from SGESVX with the computed * reciprocal pivot growth factor RPVGRW * - IF( INFO.NE.0 ) THEN + IF( INFO.NE.0 .AND. INFO.LE.N) THEN RPVGRW = SLANTR( 'M', 'U', 'N', INFO, INFO, $ AFAC, LDA, WORK ) IF( RPVGRW.EQ.ZERO ) THEN 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 ), diff --git a/TESTING/LIN/zdrvge.f b/TESTING/LIN/zdrvge.f index 8977f616..5f7a7d01 100644 --- a/TESTING/LIN/zdrvge.f +++ b/TESTING/LIN/zdrvge.f @@ -553,7 +553,7 @@ * Compare RWORK(2*NRHS+1) from ZGESVX with the * computed reciprocal pivot growth factor RPVGRW * - IF( INFO.NE.0 ) THEN + IF( INFO.NE.0 .AND. INFO.LE.N) THEN RPVGRW = ZLANTR( 'M', 'U', 'N', INFO, INFO, $ AFAC, LDA, RDUM ) IF( RPVGRW.EQ.ZERO ) THEN diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f index b62d8ee8..ed5c8556 100644 --- a/TESTING/LIN/zdrvhex.f +++ b/TESTING/LIN/zdrvhex.f @@ -614,7 +614,7 @@ $ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X, $ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS, $ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK, - $ RWORK, INFO ) + $ RWORK(2*NRHS+1), INFO ) * * Adjust the expected value of INFO to account for * pivoting. |