luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cmath4.c, drop unused doubledouble()

This commit is contained in:
dwarning 2013-11-21 17:11:01 +01:00 committed by rlar
parent 2671aef5cd
commit 2e79c16f55
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/maths/cmaths/cmath4.c
View File

@ -34,7 +34,6 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
extern bool cx_degrees;
extern void vec_new(struct dvec *d);
bool doubledouble(double *, int, double *);
#ifdef HAVE_LIBFFTW3
#include "fftw3.h"
#endif
@ -935,28 +934,3 @@ cx_ifft(void *data, short int type, int length, int *newlength, short int *newty
return ((void *) outdata);
}
bool
doubledouble(double *indata, int len, double *outdata)
{
int i, j;
if (len < 2) {
fprintf(cp_err, "Error: lengths too small to interpolate.\n");
return (FALSE);
}
outdata[0] = indata[0];
j = 1;
for (i = 1; i < 2*len-1; i++)
if (i == 2*j) {
outdata[i] = indata[j];
j = j + 1;
} else {
outdata[i] = indata[j-1] + (indata[j]-indata[j-1])/2.0;
}
outdata[2*len-1] = indata[len-1] + (indata[len-1]-outdata[2*len-2]);
return (TRUE);
}