# HG changeset patch
# User Rik <address@hidden>
# Date 1296497376 28800
# Node ID dc2603b8fd217f0d01db676db632941727f54359
# Parent  d519450e251bd453d69f05a15e9b6a83b9a12848
Fix warning about GOTO reference in arpack code

diff -r d519450e251b -r dc2603b8fd21 libcruft/ChangeLog
--- a/libcruft/ChangeLog	Sun Jan 30 22:44:52 2011 -0800
+++ b/libcruft/ChangeLog	Mon Jan 31 10:09:36 2011 -0800
@@ -1,3 +1,8 @@
+2011-01-31  Rik  <address@hidden>
+
+	* arpack/src/dseupd.f, arpack/src/sseupd.f: Change GOTO target
+	to eliminate warning about landing on end if.
+
 2011-01-28  David Bateman  <address@hidden>
 
 	* arpack/src/cneupd.f (cneupd): Restore value of nconv if ctrsen
diff -r d519450e251b -r dc2603b8fd21 libcruft/arpack/src/dseupd.f
--- a/libcruft/arpack/src/dseupd.f	Sun Jan 30 22:44:52 2011 -0800
+++ b/libcruft/arpack/src/dseupd.f	Mon Jan 31 10:09:36 2011 -0800
@@ -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 d519450e251b -r dc2603b8fd21 libcruft/arpack/src/sseupd.f
--- a/libcruft/arpack/src/sseupd.f	Sun Jan 30 22:44:52 2011 -0800
+++ b/libcruft/arpack/src/sseupd.f	Mon Jan 31 10:09:36 2011 -0800
@@ -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