Add small fixes sent by Ake Sandgren <ake.sandgren@hpc2n.umu.se>

diff --git a/SRC/cstemr.f b/SRC/cstemr.f
index d3831d10f30f9b2021c4a08024bf3f9cff9ba248..013b35d3367418636b7f11fde6e62b9a0d0c35a1 100644 (file)
--- a/SRC/cstemr.f
+++ b/SRC/cstemr.f
@@ -408,6 +408,7 @@
       WU = ZERO
       IIL = 0
       IIU = 0
+      NSPLIT = 0
 
       IF( VALEIG ) THEN
 *        We do not reference VL, VU in the cases RANGE = 'I','A'

diff --git a/SRC/dstemr.f b/SRC/dstemr.f
index 5930465e395b7ee65332cee158dde9d810362fef..61c0eb08f50f59d411e36de369bd1ab237c22924 100644 (file)
--- a/SRC/dstemr.f
+++ b/SRC/dstemr.f
@@ -391,6 +391,7 @@
       WU = ZERO
       IIL = 0
       IIU = 0
+      NSPLIT = 0
 
       IF( VALEIG ) THEN
 *        We do not reference VL, VU in the cases RANGE = 'I','A'

diff --git a/SRC/sstemr.f b/SRC/sstemr.f
index ba859db8b4af882fcd0415293c3119fe4bdd3724..cc3b27f079f20e650d2e0cc676598fe5814e8c3e 100644 (file)
--- a/SRC/sstemr.f
+++ b/SRC/sstemr.f
@@ -389,6 +389,7 @@
       WU = ZERO
       IIL = 0
       IIU = 0
+      NSPLIT = 0
 
       IF( VALEIG ) THEN
 *        We do not reference VL, VU in the cases RANGE = 'I','A'

diff --git a/SRC/zstemr.f b/SRC/zstemr.f
index 5333951dbd0fde8225b3f6c2389ddd2765263e50..8b627039e4940458790f67c7ef7b284ec5613a84 100644 (file)
--- a/SRC/zstemr.f
+++ b/SRC/zstemr.f
@@ -408,7 +408,8 @@
       WU = ZERO
       IIL = 0
       IIU = 0
-
+      NSPLIT = 0
+      
       IF( VALEIG ) THEN
 *        We do not reference VL, VU in the cases RANGE = 'I','A'
 *        The interval (WL, WU] contains all the wanted eigenvalues.

diff --git a/TESTING/EIG/cchkee.f b/TESTING/EIG/cchkee.f
index f310f798898818425dcf7044ebbe8d30c0985d71..a07637f85eab699c3a058bb13855a0818db19bcb 100644 (file)
--- a/TESTING/EIG/cchkee.f
+++ b/TESTING/EIG/cchkee.f
@@ -1129,6 +1129,10 @@
 *     ..
 *     .. Executable Statements ..
 *
+      A = 0.0
+      B = 0.0
+      C = 0.0
+      DC = 0.0
       S1 = SECOND( )
       FATAL = .FALSE.
       NUNIT = NOUT

diff --git a/TESTING/EIG/dchkee.f b/TESTING/EIG/dchkee.f
index 86cf7ba874938338a1f8ec6bd820208d65d4051b..5a614a44980a335bbe82a8af7995a30766a61acc 100644 (file)
--- a/TESTING/EIG/dchkee.f
+++ b/TESTING/EIG/dchkee.f
@@ -1133,6 +1133,10 @@
 *     ..
 *     .. Executable Statements ..
 *
+      A = 0.0
+      B = 0.0
+      C = 0.0
+      D = 0.0
       S1 = DSECND( )
       FATAL = .FALSE.
       NUNIT = NOUT

diff --git a/TESTING/EIG/dlahd2.f b/TESTING/EIG/dlahd2.f
index 2f1cc068a751f1f54e33901648d525ce45483714..626a115ef1400cd16a0098d7e14907c4a939f579 100644 (file)
--- a/TESTING/EIG/dlahd2.f
+++ b/TESTING/EIG/dlahd2.f
@@ -501,8 +501,8 @@
      $      / ' 2: norm( I - Q'' Q )   / ( m ulp )',
      $      / ' 3: norm( I - PT PT'' )   / ( n ulp )',
      $      / ' 4: norm( Y - Q'' C )   / ( norm(Y) max(m,nrhs) ulp )' )
- 9968 FORMAT( / ' Tests performed:  See sdrvst.f' )
- 9967 FORMAT( / ' Tests performed:  See cdrvst.f' )
+ 9968 FORMAT( / ' Tests performed:  See ddrvst.f' )
+ 9967 FORMAT( / ' Tests performed:  See sdrvst.f' )
 *
 *     End of DLAHD2
 *

diff --git a/TESTING/EIG/schkee.f b/TESTING/EIG/schkee.f
index 78268622ce4db3909c8936c7542fed8bccf5ce6c..62b435a6ed840845d7f051270aac4f0b10840075 100644 (file)
--- a/TESTING/EIG/schkee.f
+++ b/TESTING/EIG/schkee.f
@@ -1133,6 +1133,10 @@
 *     ..
 *     .. Executable Statements ..
 *
+      A = 0.0
+      B = 0.0
+      C = 0.0
+      D = 0.0
       S1 = SECOND( )
       FATAL = .FALSE.
       NUNIT = NOUT

diff --git a/TESTING/EIG/zchkee.f b/TESTING/EIG/zchkee.f
index 93ca8971eb01a771a452d53489a09c325c56126f..82d789f934a3327ab77babf65f867b4942a8e4bc 100644 (file)
--- a/TESTING/EIG/zchkee.f
+++ b/TESTING/EIG/zchkee.f
@@ -1129,6 +1129,10 @@
 *     ..
 *     .. Executable Statements ..
 *
+      A = 0.0
+      B = 0.0
+      C = 0.0
+      DC = 0.0
       S1 = DSECND( )
       FATAL = .FALSE.
       NUNIT = NOUT