[Scipy-svn] r5497 - trunk/scipy/fftpack

[scipy-svn at scipy.org]

Author: cdavid
Date: 2009-01-19 02:32:32 -0600 (Mon, 19 Jan 2009)
New Revision: 5497

Modified:
   trunk/scipy/fftpack/fftpack.pyf
Log:
Add f2py wrapper for single prec dct type I.

Modified: trunk/scipy/fftpack/fftpack.pyf
===================================================================
--- trunk/scipy/fftpack/fftpack.pyf	2009-01-19 08:32:11 UTC (rev 5496)
+++ trunk/scipy/fftpack/fftpack.pyf	2009-01-19 08:32:32 UTC (rev 5497)
@@ -196,6 +196,17 @@
          integer optional,intent(c,in) :: normalize = 0
        end subroutine ddct3
 
+       subroutine dct1(x,n,howmany,normalize)
+         ! y = dct1(x[,n,normalize,overwrite_x])
+         intent(c) dct1
+         real*4 intent(c,in,out,copy,out=y) :: x(*)
+         integer optional,depend(x),intent(c,in) :: n=size(x)
+         check(n>0&&n<=size(x)) n
+         integer depend(x,n),intent(c,hide) :: howmany = size(x)/n
+         check(n*howmany==size(x)) howmany
+         integer optional,intent(c,in) :: normalize = 0
+       end subroutine dct1
+
        subroutine dct2(x,n,howmany,normalize)
          ! y = dct2(x[,n,normalize,overwrite_x])
          intent(c) dct2