fftw_plan_many eingefügt

3 files changed, 39 insertions, 0 deletions

diff --git a/fftw.pas b/fftw.pas
index 4d0cb38..b9dee58 100644
--- a/fftw.pas
+++ b/fftw.pas
@@ -82,6 +82,19 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pdouble;o:Pcomplex_double;
                        flags:fftw_flagset):fftw_plan_double;
          external fftwlib name 'fftw_plan_dft_r2c';
 
+function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Pdouble;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Pcomplex_double;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_double;
+external fftwlib name 'fftw_plan_many_dft_r2c';
+function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Pcomplex_double;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Pdouble;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_double;
+external fftwlib name 'fftw_plan_many_dft_c2r';
+
 {Complex to real transformations.}
 function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_double;o:Pdouble;
                           flags:fftw_flagset):fftw_plan_double;
diff --git a/fftw_l.pas b/fftw_l.pas
index b906b52..5c68b66 100644
--- a/fftw_l.pas
+++ b/fftw_l.pas
@@ -82,6 +82,19 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Pextended;o:Pcomplex_extended
                        flags:fftw_flagset):fftw_plan_extended;
          external fftwlib name 'fftwl_plan_dft_r2c';
 
+function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Pextended;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Pcomplex_extended;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_extended;
+external fftwlib name 'fftwl_plan_many_dft_r2c';
+function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Pcomplex_extended;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Pextended;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_extended;
+external fftwlib name 'fftwl_plan_many_dft_c2r';
+
 {Complex to real transformations.}
 function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_extended;o:Pextended;
                           flags:fftw_flagset):fftw_plan_extended;
diff --git a/fftw_s.pas b/fftw_s.pas
index 70991c4..86b7175 100644
--- a/fftw_s.pas
+++ b/fftw_s.pas
@@ -82,6 +82,19 @@ function fftw_plan_dft(rank:cardinal;n:Pcardinal;i:Psingle;o:Pcomplex_single;
                        flags:fftw_flagset):fftw_plan_single;
          external fftwlib name 'fftwf_plan_dft_r2c';
 
+function fftw_plan_many_dft_r2c(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Psingle;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Pcomplex_single;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_single;
+external fftwlib name 'fftwf_plan_many_dft_r2c';
+function fftw_plan_many_dft_c2r(rank:cardinal;n:Pcardinal;howmany:cardinal;
+                       i:Pcomplex_single;inembed:Pcardinal;istride:cardinal;
+                       idist:cardinal;o:Psingle;onembed:Pcardinal;
+                       ostride:cardinal;odist:cardinal;
+                       flags:fftw_flagset):fftw_plan_single;
+external fftwlib name 'fftwf_plan_many_dft_c2r';
+
 {Complex to real transformations.}
 function fftw_plan_dft_1d(n:cardinal;i:Pcomplex_single;o:Psingle;
                           flags:fftw_flagset):fftw_plan_single;