changeset 12354:a85d14454adc release-3-4-x

Fix warning about GOTO reference in arpack code
author Rik <octave@nomad.inbox5.com>
date Mon, 31 Jan 2011 16:41:43 -0500
parents 27bab6a53ec7
children 1c4cad056b79
files libcruft/ChangeLog libcruft/arpack/src/dseupd.f libcruft/arpack/src/sseupd.f
diffstat 3 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-31  Rik  <octave@nomad.inbox5.com>
+
+	* arpack/src/dseupd.f, arpack/src/sseupd.f: Change GOTO target
+	to eliminate warning about landing on end if.
+
 2011-01-31  John W. Eaton  <jwe@octave.org>
 
 	* arpack/module.mk (EXTRA_DIST): Include arpack/module.mk in the
--- a/libcruft/arpack/src/dseupd.f
+++ b/libcruft/arpack/src/dseupd.f
@@ -609,9 +609,9 @@
 c
             if (leftptr .lt. rghtptr) go to 20
 c
- 30      end if
+         end if
 c
-         if (msglvl .gt. 2) then
+ 30      if (msglvl .gt. 2) then
              call dvout  (logfil, ncv, workl(ihd), ndigit,
      &       '_seupd: The eigenvalues of H--reordered')
          end if
--- a/libcruft/arpack/src/sseupd.f
+++ b/libcruft/arpack/src/sseupd.f
@@ -609,9 +609,9 @@
 c
             if (leftptr .lt. rghtptr) go to 20
 c
- 30      end if
+         end if
 c
-         if (msglvl .gt. 2) then
+ 30      if (msglvl .gt. 2) then
              call svout (logfil, ncv, workl(ihd), ndigit,
      &       '_seupd: The eigenvalues of H--reordered')
          end if