Fix bug 0072 reported by Inge Gutheil on February 3rd 2011

From Inge:
In the tests,
TESTING/EIG/cchkhs.f (similar in zchkhs.f) in line 492 N = NN ( JSIZE )
is set. If NN( JSIZE ) is zero, CCOPY (N-1,....) gives an error message
and the test breaks. In the real versions dchkhs after N = NN ( JSIZE )
there is
IF ( N .EQ. 0 ) GO TO 270, so there DCOPY does not exit with an error
message.
I think the same statement should be added in the complex version to
avoid copying -1 element.

diff --git a/TESTING/EIG/cchkhs.f b/TESTING/EIG/cchkhs.f
index 78554f926c0b2841c19c2d56f42bbb072567d0c5..7fd4c7bee758841ade80be16d5c5723e0171f507 100644 (file)
--- a/TESTING/EIG/cchkhs.f
+++ b/TESTING/EIG/cchkhs.f
@@ -490,6 +490,8 @@
 *
       DO 260 JSIZE = 1, NSIZES
          N = NN( JSIZE )
+         IF( N.EQ.0 )
+     $      GO TO 260
          N1 = MAX( 1, N )
          ANINV = ONE / REAL( N1 )
 *

diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f
index 304984f19840aa76a11e2148549d8ba8db77494f..58c6b3359ea33ed75c04a44279e8882c36b28dc2 100644 (file)
--- a/TESTING/EIG/zchkhs.f
+++ b/TESTING/EIG/zchkhs.f
@@ -490,6 +490,8 @@
 *
       DO 260 JSIZE = 1, NSIZES
          N = NN( JSIZE )
+         IF( N.EQ.0 )
+     $      GO TO 260
          N1 = MAX( 1, N )
          ANINV = ONE / DBLE( N1 )
 *