quadpack problems

[John W. Eaton]

On 22-May-2008, Jaroslav Hajek wrote:

| On Wed, May 21, 2008 at 10:36 PM, Thomas Treichl <Thomas.Treichl at gmx.net> wrote:
| > Hi,
| >
| > qk15i.f has two semicolons that cannot be handled by f2c (changeset
| > attached). The second problem is that I don't understand very much about
| > perl, the error message for the default branch is
| >
| >  make -C src all
| >  making Quad-opts.cc from ../liboctave/Quad-opts.in
| >  unknown type float at ../mk-opts.pl line 693, <INFILE> line 64.
| >  make[2]: *** [Quad-opts.cc] Error 255
| >  make[1]: *** [src] Error 2
| >  make: *** [all] Error 2
| >
| > Thanks for help,
| >
| >  Thomas
| >
| > # HG changeset patch
| > # User Thomas Treichl <Thomas.Treichl at gmx.net>
| > # Date 1211401627 -7200
| > # Node ID a2973178b3d73db2d49614adc69a553fe9c3a201
| > # Parent  62affb34e6487a40de790346e0aced86da958cc4
| > Removed semicolons at end of lines 172 and 177
| >
| > 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 @@ c
| >         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
| >
| > _______________________________________________
| > Bug-octave mailing list
| > Bug-octave at octave.org
| > https://www.cae.wisc.edu/mailman/listinfo/bug-octave
| >
| >
| 
| And the next changeset attached adds support for float into mk-opts.pl...

I applied it.

Thanks,

jwe