Mercurial > hg > octave-lyh

changeset 7807:d4565e812948

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed semicolons at end of lines 172 and 177
author Thomas Treichl <Thomas.Treichl@gmx.net>
date Wed, 21 May 2008 22:27:07 +0200
parents edc25a3fb2bc
children 7ab1ccf4256c
files libcruft/ChangeLog libcruft/quadpack/qk15i.f
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-30  Thomas Treichl  <Thomas.Treichl@gmx.net>
+
+	* quadpack/qk15i.f: Delete extraneous semicolons.
+
 2008-05-21  David Bateman  <dbateman@free.fr>
 
 	* odepack/slsode.f, odepack/sintdy.f: Replace the use of xerrwv
--- a/libcruft/quadpack/qk15i.f
+++ b/libcruft/quadpack/qk15i.f
@@ -169,12 +169,12 @@
         if(inf.eq.2) then
            call f(-tabsc1,ierr,fvalt)
            if (ierr.lt.0) return
-           fval1 = fval1 + fvalt;
+           fval1 = fval1 + fvalt
         endif
         if(inf.eq.2) then
            call f(-tabsc2,ierr,fvalt)
            if (ierr.lt.0) return
-           fval2 = fval2 + fvalt;
+           fval2 = fval2 + fvalt
         endif
         fval1 = (fval1/absc1)/absc1
         fval2 = (fval2/absc2)/absc2