mirror/kissfft
1
0
Fork 0
mirror of https://github.com/mborgerding/kissfft.git synced 2025-07-14 11:04:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix for inplace odd rank multi-dimensional ffts

Browse Source
This commit is contained in:
Mark Borgerding
2004-02-02 01:49:08 +00:00
parent 490a602472
commit 1d58b0eced
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tools/fftutil.c
View File

@ -45,22 +45,19 @@ void fft_filend(FILE * fin,FILE * fout,int *dims,int ndims,int isinverse)
{
void *st;
kiss_fft_cpx *buf;
kiss_fft_cpx *bufout;
int dimprod=1,i;
for (i=0;i<ndims;++i)
dimprod *= dims[i];
buf = (kiss_fft_cpx *) malloc (sizeof (kiss_fft_cpx) * dimprod);
bufout = (kiss_fft_cpx *) malloc (sizeof (kiss_fft_cpx) * dimprod);
st = kiss_fftnd_alloc (dims, ndims, isinverse, 0, 0);
while (fread (buf, sizeof (kiss_fft_cpx) * dimprod, 1, fin) > 0) {
kiss_fftnd (st, buf, bufout);
fwrite (bufout, sizeof (kiss_fft_cpx), dimprod, fout);
kiss_fftnd (st, buf, buf);
fwrite (buf, sizeof (kiss_fft_cpx), dimprod, fout);
}
free (st);
free (buf);
free (bufout);
}
void fft_file_real(FILE * fin,FILE * fout,int nfft,int isinverse)
@ -99,7 +96,7 @@ int get_dims(char * arg,int * dims)
if (p0)
*p0++ = '\0';
dims[ndims++] = atoi(arg);
fprintf(stderr,"dims[%d] = %d\n",ndims-1,dims[ndims-1]);
/* fprintf(stderr,"dims[%d] = %d\n",ndims-1,dims[ndims-1]); */
arg = p0;
}while (p0);
return ndims;