# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1296510103 18000
# Node ID a85d14454adc9585963dbbe300943bf0f0b48bfb
# Parent  27bab6a53ec724dde810ce022393184ade973edf
Fix warning about GOTO reference in arpack code

diff -r 27bab6a53ec7 -r a85d14454adc libcruft/ChangeLog
--- a/libcruft/ChangeLog	Mon Jan 31 16:28:58 2011 -0500
+++ b/libcruft/ChangeLog	Mon Jan 31 16:41:43 2011 -0500
@@ -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
diff -r 27bab6a53ec7 -r a85d14454adc libcruft/arpack/src/dseupd.f
--- a/libcruft/arpack/src/dseupd.f	Mon Jan 31 16:28:58 2011 -0500
+++ b/libcruft/arpack/src/dseupd.f	Mon Jan 31 16:41:43 2011 -0500
@@ -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
diff -r 27bab6a53ec7 -r a85d14454adc libcruft/arpack/src/sseupd.f
--- a/libcruft/arpack/src/sseupd.f	Mon Jan 31 16:28:58 2011 -0500
+++ b/libcruft/arpack/src/sseupd.f	Mon Jan 31 16:41:43 2011 -0500
@@ -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