[Scipy-svn] r4297 - branches/refactor_fft/scipy/fftpack/src

[scipy-svn at scipy.org]

Author: cdavid
Date: 2008-05-12 22:36:20 -0500 (Mon, 12 May 2008)
New Revision: 4297

Modified:
   branches/refactor_fft/scipy/fftpack/src/fftpack.cxx
Log:
Restore wrongly deleted equal_dims.

Modified: branches/refactor_fft/scipy/fftpack/src/fftpack.cxx
===================================================================
--- branches/refactor_fft/scipy/fftpack/src/fftpack.cxx	2008-05-13 03:27:43 UTC (rev 4296)
+++ branches/refactor_fft/scipy/fftpack/src/fftpack.cxx	2008-05-13 03:36:20 UTC (rev 4297)
@@ -43,6 +43,19 @@
 #include "fftpack/zfftnd.cxx"
 #include "fftpack/zfft.cxx"
 
+#if defined(WITH_FFTW) || defined(WITH_MKL)
+static int equal_dims(int rank,int *dims1,int *dims2)
+{
+        int i;
+        for (i = 0; i < rank; ++i) {
+                if (dims1[i] != dims2[i]) {
+                        return 0;
+                }
+        }
+        return 1;
+}
+#endif
+
 #ifdef WITH_FFTW3
     #include "fftw3/drfft.cxx"
     #include "fftw3/zfft.cxx"