From 68b1f1a6a163eb1df878fc4ae64c52b866aa22eb Mon Sep 17 00:00:00 2001 From: james Date: Thu, 27 Jun 2013 18:54:28 +0000 Subject: [PATCH] bug fix provided by Elena Ivanova via email. --- TESTING/LIN/cdrvrfp.f | 2 +- TESTING/LIN/ddrvrfp.f | 2 +- TESTING/LIN/sdrvrfp.f | 2 +- TESTING/LIN/zdrvrfp.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TESTING/LIN/cdrvrfp.f b/TESTING/LIN/cdrvrfp.f index 5aa736b5..17884c55 100644 --- 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 033c033b..904ec561 100644 --- 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 df81d7cc..2a73e17b 100644 --- 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 6efc625c..a93f18e7 100644 --- 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. * -- 2.34.1