Mercurial > hg > octave-shane
changeset 12317:126d8fe48a12
Fix warning about GOTO reference in arpack code
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Mon, 31 Jan 2011 16:41:43 -0500 |
parents | 88fa9e9efdea |
children | 211f8c905a4f |
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