calc_fourier.c