# HG changeset patch
# User Thomas Treichl <Thomas.Treichl@gmx.net>
# Date 1211401627 -7200
# Node ID d4565e8129482c4790bd4acc85a71e2cf6788eb3
# Parent  edc25a3fb2bce80302402d876e660de57e332c43
Removed semicolons at end of lines 172 and 177

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- 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
diff --git a/libcruft/quadpack/qk15i.f b/libcruft/quadpack/qk15i.f
--- 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