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

[scipy-svn at scipy.org]

Author: cdavid
Date: 2009-01-07 12:23:56 -0600 (Wed, 07 Jan 2009)
New Revision: 5365

Modified:
   trunk/scipy/fftpack/fftpack.pyf
Log:
Add crfft f2py wrapper.

Modified: trunk/scipy/fftpack/fftpack.pyf
===================================================================
--- trunk/scipy/fftpack/fftpack.pyf	2009-01-07 18:23:33 UTC (rev 5364)
+++ trunk/scipy/fftpack/fftpack.pyf	2009-01-07 18:23:56 UTC (rev 5365)
@@ -110,19 +110,19 @@
               :: normalize = (direction<0)
        end subroutine rfft
 
-!       subroutine crfft(x,n,direction,howmany,normalize)
-!         ! y = crfft(x[,n,direction,normalize,overwrite_x])
-!         intent(c) crfft
-!         complex*8 intent(c,in,out,overwrite,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) :: direction = 1
-!         integer optional,intent(c,in),depend(direction) &
-!              :: normalize = (direction<0)
-!       end subroutine crfft
-!
+       subroutine crfft(x,n,direction,howmany,normalize)
+         ! y = crfft(x[,n,direction,normalize,overwrite_x])
+         intent(c) crfft
+         complex*8 intent(c,in,out,overwrite,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) :: direction = 1
+         integer optional,intent(c,in),depend(direction) &
+              :: normalize = (direction<0)
+       end subroutine crfft
+
        subroutine cfftnd(x,r,s,direction,howmany,normalize,j)
          ! y = cfftnd(x[,s,direction,normalize,overwrite_x])
          intent(c) cfftnd