|
|
|
@ -3,7 +3,7 @@
|
|
|
|
|
#include <time.h>
|
|
|
|
|
#include "chunk_array.h"
|
|
|
|
|
|
|
|
|
|
/* fast fourier transform */
|
|
|
|
|
/*fast fourier transform */
|
|
|
|
|
/* THE COOLEY-TUKEY FAST FOURIER TRANSFORM */
|
|
|
|
|
/* EVALUATES COMPLEX FOURIER SERIES FOR COMPLEX OR REAL FUNCTIONS. */
|
|
|
|
|
/* THAT IS, IT COMPUTES */
|
|
|
|
@ -333,8 +333,8 @@ void fourt(chunk_array_t* datar, chunk_array_t* datai, int nn[3], int ndim, int
|
|
|
|
|
chunk_array_save(datar, i, valuerj - tempr);
|
|
|
|
|
chunk_array_save(datai, i, valueij - tempi);
|
|
|
|
|
|
|
|
|
|
//chunk_array_get(datar, j, &valuerj);
|
|
|
|
|
//chunk_array_get(datai, j, &valueij);
|
|
|
|
|
chunk_array_get(datar, j, &valuerj);
|
|
|
|
|
chunk_array_get(datai, j, &valueij);
|
|
|
|
|
|
|
|
|
|
chunk_array_save(datar, j, valuerj + tempr);
|
|
|
|
|
chunk_array_save(datai, j, valueij + tempi);
|
|
|
|
|