(no commit message)

diff --git a/TESTING/LIN/cdrvgb.f b/TESTING/LIN/cdrvgb.f
index b7e011acbc3eb3618dc88be8a35430b0c8c8fd8a..3b8b45478c9f6e4ca4741a2724aa9a7d195dc3bc 100644 (file)
--- 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 3b9683b908609032a13cee40ffbc0732325d3316..c75fdad3601777713a0ffe4a59dcc3fe47bd53b9 100644 (file)
--- 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 a9705f97df677761fcf321d85118ff867dfcbbdd..8a88c0999a476a7c7bbfce40695139c23174799c 100644 (file)
--- 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 6258f4b03cf6a222c3c11c9317e9c1a16c2089c1..8dc949051d4f9ebd505e662b99f3f2b14741c3bf 100644 (file)
--- 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 5a16a0cfcad676324629c8ecc96ba2275b4c99be..f0bdea4de3c7f7f87a6023dc0b648c670b92dde9 100644 (file)
--- 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 f25d70314dedb1efe5ecd8aa42422fc1731188ae..5bfd607c67d5f739e2b3f52bde90124df0d28d18 100644 (file)
--- 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 dd7ba9d36da8231ddc449a566a7eb17e415ccde2..158492f4c8a14fc5fa2d4babe2064021e8741ebe 100644 (file)
--- 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 ad46b349cfa171bb5aa7a683129d70f1480c94f5..2856cca86b2418afbf5318206668766ec7eb6cb5 100644 (file)
--- 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 8977f616218b23bb9d10b396b973a9e35528b783..5f7a7d01d88f723c4dc86a2dd16913fbba910914 100644 (file)
--- 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 b62d8ee8b04bada4396e195943dc8cbf2baad5d0..ed5c855697b35a6b9ed3f1bd112c3d8fdf778cfd 100644 (file)
--- 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.