diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-05 13:00:56 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-05 13:00:56 +0200 |
| commit | 6819392dfe6876aa7c8b321bf65c234ecdcc447e (patch) | |
| tree | b6d5c85649bcd0cb65694012b143abbaa9a5bfcb | |
| parent | d9c16fa14e78b1dcc01712ab144950638be3dab0 (diff) | |
| download | Plasmapropagation-6819392dfe6876aa7c8b321bf65c234ecdcc447e.tar.xz | |
fft wird nun länger optimiert
| -rw-r--r-- | Physikunit.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Physikunit.pas b/Physikunit.pas index bc23f05..abe066a 100644 --- a/Physikunit.pas +++ b/Physikunit.pas @@ -634,14 +634,14 @@ begin setlength(ffts,length(teilchen)); for i:=0 to length(ffts)-1 do begin ffts[i,0,false]:= // Planung der Hintransformationen über x - fftw_plan_many_dft_r2c(1,@_aX,aP,impulsraum[i,false],nil,aP,1,fftTmp,nil,aP,1,[fftw_preserve_input,fftw_measure]); + fftw_plan_many_dft_r2c(1,@_aX,aP,impulsraum[i,false],nil,aP,1,fftTmp,nil,aP,1,[fftw_preserve_input,fftw_exhaustive]); ffts[i,0,true]:= // Planung der Rücktransformationen über x - fftw_plan_many_dft_c2r(1,@_aX,aP,fftTmp,nil,aP,1,impulsRaumGradient[i,0],nil,aP,1,[fftw_measure]); + fftw_plan_many_dft_c2r(1,@_aX,aP,fftTmp,nil,aP,1,impulsRaumGradient[i,0],nil,aP,1,[fftw_destroy_input,fftw_exhaustive]); ffts[i,1,false]:= // Planung der Hintransformationen über p - fftw_plan_many_dft_r2c(1,@_aP,aX,impulsraum[i,false],nil,1,aP,fftTmp,nil,1,aP div 2 + 1,[fftw_preserve_input,fftw_measure]); + fftw_plan_many_dft_r2c(1,@_aP,aX,impulsraum[i,false],nil,1,aP,fftTmp,nil,1,aP div 2 + 1,[fftw_preserve_input,fftw_exhaustive]); ffts[i,1,true]:= // Planung der Rücktransformationen über p - fftw_plan_many_dft_c2r(1,@_aP,aX,fftTmp,nil,1,aP div 2 + 1,impulsRaumGradient[i,1],nil,1,aP,[fftw_measure]); + fftw_plan_many_dft_c2r(1,@_aP,aX,fftTmp,nil,1,aP div 2 + 1,impulsRaumGradient[i,1],nil,1,aP,[fftw_destroy_input,fftw_exhaustive]); end; pruefeArrayEnden('FFT schreibt beim Planen über das Ende hinaus!'); |