From ad5c09a865069a0c3093716a8547f725768d33f5 Mon Sep 17 00:00:00 2001
From: h_vogt <h_vogt>
Date: Sat, 23 Nov 2013 18:00:35 +0100
Subject: [PATCH] remove unused code

---
 src/frontend/trannoise/1-f-code_d.c | 60 -----------------------------
 src/frontend/trannoise/Makefile.am  |  2 -
 2 files changed, 62 deletions(-)
 delete mode 100644 src/frontend/trannoise/1-f-code_d.c

diff --git a/src/frontend/trannoise/1-f-code_d.c b/src/frontend/trannoise/1-f-code_d.c
deleted file mode 100644
index 7a50f46b5..000000000
--- a/src/frontend/trannoise/1-f-code_d.c
+++ /dev/null
@@ -1,60 +0,0 @@
-/* Copyright: Holger Vogt, 2008
- Discrete simulation of colored noise and stochastic
- processes and 1/fa power law noise generation
- Kasdin, N.J.;
- Proceedings of the IEEE
- Volume 83,  Issue 5,  May 1995 Page(s):802 - 827
-*/
-
-#include <math.h>
-#include <stdio.h>
-#include <stddef.h>
-#include <stdlib.h>
-#include <stdarg.h>                     // var. argumente
-#include "ngspice/1-f-code.h"
-#include "ngspice/ngspice.h"
-
-#include "ngspice/fftext.h"
-#include "ngspice/wallace.h"
-
-
-void
-f_alpha(int n_pts, int n_exp, double X[], double Q_d, double alpha)
-{
-    unsigned int i;
-    double *hfa, *wfa;
-    double ha;
-
-    ha = alpha/2.0f;
-    // Q_d = sqrt(Q_d); /* find the deviation of the noise */
-    hfa = TMALLOC(double,n_pts);
-    wfa = TMALLOC(double,n_pts);
-    hfa[0] = 1.0f;
-    wfa[0] = Q_d * GaussWa;
-    /* generate the coefficients hk */
-    for (i = 1; i < n_pts; i++) {
-        /* generate the coefficients hk */
-        hfa[i] = hfa[i-1] * (ha + (double)(i-1)) /  (double)(i));
-        /* fill the sequence wk with white noise */
-        wfa[i] = Q_d * GaussWa;
-    }
-
-    // for (i = 0; i < n_pts; i++)
-    //    printf("rnd %e, hk %e\n", wfa[i], hfa[i]);
-
-    /* perform the discrete Fourier transform */
-    fftInit(n_exp);
-    rffts(hfa, n_exp, 1);
-    rffts(wfa, n_exp, 1);
-
-    /* multiply the two complex vectors */
-    rspectprod(hfa, wfa, X, n_pts);
-    /* inverse transform */
-    riffts(X, n_exp, 1);
-
-    free(hfa);
-    free(wfa);
-    /* fft tables will be freed in vsrcaccept.c and isrcaccept.c
-       fftFree(); */
-    fprintf(stdout, "%d (2e%d) one over f values created\n", n_pts, n_exp);
-}
diff --git a/src/frontend/trannoise/Makefile.am b/src/frontend/trannoise/Makefile.am
index 0ed6ef3b6..7b962c59c 100644
--- a/src/frontend/trannoise/Makefile.am
+++ b/src/frontend/trannoise/Makefile.am
@@ -1,5 +1,3 @@
-EXTRA_DIST = 1-f-code_d.c
-
 noinst_LTLIBRARIES = libtrannoise.la
 
 libtrannoise_la_SOURCES = \