From 8e00ca18776ee3463078b401ce07e5aae8e231a2 Mon Sep 17 00:00:00 2001
From: Mark Borgerding <mark@borgerding.net>
Date: Tue, 3 Feb 2004 00:59:33 +0000
Subject: [PATCH] ./bm_kiss_float -x 10000 -n 1800 improved from cputime=1.540
 to cputime=1.490

---
 kiss_fft.c | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/kiss_fft.c b/kiss_fft.c
index 8a2d330..0d20335 100644
--- a/kiss_fft.c
+++ b/kiss_fft.c
@@ -240,6 +240,7 @@ static void kf_bfly_generic(
     }
 }
 
+static
 void kf_work(
         kiss_fft_cpx * Fout,
         const kiss_fft_cpx * f,
@@ -249,18 +250,22 @@ void kf_work(
         const kiss_fft_state * st
         )
 {
-    int m,p,q;
-    p=*factors++;
-    m=*factors++;
+    kiss_fft_cpx * tmpFout=Fout;
+    int m,p,r;
+    p=*factors++; /* the radix  */
+    m=*factors++; /* stage's fft length/p */
 
-    for (q=0;q<p;++q) {
+    for (r=0;r<p;++r) {
         if (m==1)
-            Fout[q] = *f;
+            *Fout = *f;
         else
-            kf_work( Fout + m*q, f, fstride*p, in_stride, factors,st);
+            kf_work( Fout , f, fstride*p, in_stride, factors,st);
+        Fout += m;
         f += fstride*in_stride;
     }
 
+    Fout=tmpFout;
+
     switch (p) {
         case 2: kf_bfly2(Fout,fstride,st,m); break;
         case 3: kf_bfly3(Fout,fstride,st,m); break;