bug fix provided by Elena Ivanova via email.

diff --git a/TESTING/LIN/cdrvrfp.f b/TESTING/LIN/cdrvrfp.f
index 5aa736b56140a5706a381b8f1ecdd3c1d50e76b6..17884c555f957dbea04c6b4b01e3063d74bd966c 100644 (file)
--- a/TESTING/LIN/cdrvrfp.f
+++ b/TESTING/LIN/cdrvrfp.f
@@ -345,7 +345,7 @@
 *
 *              If N.EQ.0, only consider the first type
 *
-               IF( N.EQ.0 .AND. IIT.GT.1 ) GO TO 120
+               IF( N.EQ.0 .AND. IIT.GE.1 ) GO TO 120
 *
 *              Skip types 3, 4, or 5 if the matrix size is too small.
 *

diff --git a/TESTING/LIN/ddrvrfp.f b/TESTING/LIN/ddrvrfp.f
index 033c033ba0f2f7e2f682c04324b3bd11e5d61cda..904ec5614707721f5e969b046e620bb17dfd1651 100644 (file)
--- a/TESTING/LIN/ddrvrfp.f
+++ b/TESTING/LIN/ddrvrfp.f
@@ -342,7 +342,7 @@
 *
 *              If N.EQ.0, only consider the first type
 *
-               IF( N.EQ.0 .AND. IIT.GT.1 ) GO TO 120
+               IF( N.EQ.0 .AND. IIT.GE.1 ) GO TO 120
 *
 *              Skip types 3, 4, or 5 if the matrix size is too small.
 *

diff --git a/TESTING/LIN/sdrvrfp.f b/TESTING/LIN/sdrvrfp.f
index df81d7cc400a7b58088d368320c7f4f0e5797bbd..2a73e17be6fbac27cd44ac19c673ea1ededd4e30 100644 (file)
--- a/TESTING/LIN/sdrvrfp.f
+++ b/TESTING/LIN/sdrvrfp.f
@@ -342,7 +342,7 @@
 *
 *              If N.EQ.0, only consider the first type
 *
-               IF( N.EQ.0 .AND. IIT.GT.1 ) GO TO 120
+               IF( N.EQ.0 .AND. IIT.GE.1 ) GO TO 120
 *
 *              Skip types 3, 4, or 5 if the matrix size is too small.
 *

diff --git a/TESTING/LIN/zdrvrfp.f b/TESTING/LIN/zdrvrfp.f
index 6efc625c3d91398ace9b9b5e9c013de533ead609..a93f18e74aca27f91fab82901693718e87297b30 100644 (file)
--- a/TESTING/LIN/zdrvrfp.f
+++ b/TESTING/LIN/zdrvrfp.f
@@ -345,7 +345,7 @@
 *
 *              If N.EQ.0, only consider the first type
 *
-               IF( N.EQ.0 .AND. IIT.GT.1 ) GO TO 120
+               IF( N.EQ.0 .AND. IIT.GE.1 ) GO TO 120
 *
 *              Skip types 3, 4, or 5 if the matrix size is too small.
 *