From 732ae84522e531a7917b0ffcb04968755c0b816e Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 29 Sep 2015 16:12:33 +0200 Subject: fftw_plan_many eingefügt MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- fftw_s.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'fftw_s.pas') 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; -- cgit v1.2.3-70-g09d2