From 6b4188a46e908cdb6099befcf00b0a1be0751bd0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sat, 5 Oct 2002 23:19:48 +0200
Subject: [PATCH] Fixed a few bugs in Math.Transforms.FFT.rFFT() and
Math.Transforms.FFT.rIFFT().
Rev: src/modules/Math/transforms.cmod:1.6
---
src/modules/Math/transforms.cmod | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/src/modules/Math/transforms.cmod b/src/modules/Math/transforms.cmod
index f84e6cda74..45136bfa57 100644
--- a/src/modules/Math/transforms.cmod
+++ b/src/modules/Math/transforms.cmod
@@ -86,12 +86,13 @@ PIKECLASS FFT
THIS->r_out = malloc(sizeof(fftw_real)*n);
- if (THIS->r_rc_plan!=n)
+ if (THIS->r_rc_plan_size != n)
{
- if (THIS->r_rc_plan>0)
+ if (THIS->r_rc_plan_size > 0)
rfftw_destroy_plan(THIS->r_rc_plan);
- THIS->r_rc_plan = rfftw_create_plan(n, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
- THIS->r_rc_plan_size=n;
+ THIS->r_rc_plan =
+ rfftw_create_plan(n, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
+ THIS->r_rc_plan_size = n;
};
rfftw_one(THIS->r_rc_plan, THIS->r_in, THIS->r_out);
@@ -196,10 +197,11 @@ PIKECLASS FFT
if (THIS->r_cr_plan_size!=n)
{
- if (THIS->r_cr_plan>0)
+ if (THIS->r_cr_plan_size > 0)
rfftw_destroy_plan(THIS->r_cr_plan);
- THIS->r_cr_plan = rfftw_create_plan(n, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
- THIS->r_cr_plan_size=n;
+ THIS->r_cr_plan =
+ rfftw_create_plan(n, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
+ THIS->r_cr_plan_size = n;
}
rfftw_one(THIS->r_cr_plan, THIS->r_in, THIS->r_out);
--
GitLab