From 9452a6a004ec9ae17dc09798b2de0b09e80cd00f Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sat, 9 Jul 2011 18:52:56 +0000
Subject: [PATCH] possibly inexact long -> double cast

---
 ChangeLog              | 4 ++++
 src/frontend/com_fft.c | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 86f728cf6..a65fba3a2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-09  Robert Larice
+ * src/frontend/com_fft.c :
+   possibly inexact long -> double cast
+
 2011-07-09  Robert Larice
  * src/frontend/inpcom.c ,
  * src/frontend/numparam/spicenum.c ,
diff --git a/src/frontend/com_fft.c b/src/frontend/com_fft.c
index c108d68aa..b5fad67f8 100644
--- a/src/frontend/com_fft.c
+++ b/src/frontend/com_fft.c
@@ -625,9 +625,10 @@ static void fftext(double* x, double* y, long int n, long int nn, int dir)
 
    /* Scaling for forward transform */
    if (dir == 1) {
+      double scale = 1.0 / (double) nn;
       for (i=0;i<n;i++) {
-         x[i] /= nn; /* don't consider zero padded values */
-         y[i] /= nn;
+         x[i] *= scale; /* don't consider zero padded values */
+         y[i] *= scale;
       }
    }
 }