[Scipy-svn] r2249 - trunk/Lib/interpolate

[scipy-svn at scipy.org]

Author: stefan
Date: 2006-10-09 17:37:42 -0500 (Mon, 09 Oct 2006)
New Revision: 2249

Modified:
   trunk/Lib/interpolate/fitpack.pyf
   trunk/Lib/interpolate/fitpack2.py
Log:
Provide 'splint' with a 'c'-parameter of correct length.


Modified: trunk/Lib/interpolate/fitpack.pyf
===================================================================
--- trunk/Lib/interpolate/fitpack.pyf	2006-10-09 13:47:02 UTC (rev 2248)
+++ trunk/Lib/interpolate/fitpack.pyf	2006-10-09 22:37:42 UTC (rev 2249)
@@ -73,7 +73,7 @@
        ! y = splev(t,c,k,x)
        real*8 dimension(n),intent(in) :: t
        integer intent(hide),depend(t) :: n=len(t)
-       real*8 dimension(n-k-1),depend(n,k),check(len(c)==n-k-1),intent(in) :: c
+       real*8 dimension(n),depend(n,k),check(len(c)==n),intent(in) :: c
        integer :: k
        real*8 dimension(m),intent(in) :: x
        real*8 dimension(m),depend(m),intent(out) :: y
@@ -85,7 +85,7 @@
        ! dy = splder(t,c,k,x,[nu])
        real*8 dimension(n) :: t
        integer depend(t),intent(hide) :: n=len(t)
-       real*8 dimension(n-k-1),depend(n,k),check(len(c)==n-k-1),intent(in) :: c
+       real*8 dimension(n),depend(n,k),check(len(c)==n),intent(in) :: c
        integer :: k
        integer depend(k),check(0<=nu && nu<=k) :: nu = 1
        real*8 dimension(m) :: x

Modified: trunk/Lib/interpolate/fitpack2.py
===================================================================
--- trunk/Lib/interpolate/fitpack2.py	2006-10-09 13:47:02 UTC (rev 2248)
+++ trunk/Lib/interpolate/fitpack2.py	2006-10-09 22:37:42 UTC (rev 2249)
@@ -93,7 +93,7 @@
     def _reset_class(self):
         data = self._data
         n,t,c,k,ier = data[7],data[8],data[9],data[5],data[-1]
-        self._eval_args = t[:n],c[:n-k-1],k
+        self._eval_args = t[:n],c[:n],k
         if ier==0:
             # the spline returned has a residual sum of squares fp
             # such that abs(fp-s)/s <= tol with tol a relative