diff --git a/allvars.c b/allvars.c index 07b6f6fee7bfc2d9af51b5203b3f127f5cf897e2..6e2cb8ab42675312e54577b778aa2a1a9b849cdb 100644 --- a/allvars.c +++ b/allvars.c @@ -26,7 +26,6 @@ struct timespec begin, finish, begin0, begink, finishk; struct sectorlist ** sectorhead; long * histo_send, size_of_grid; double * grid, *gridss, *gridss_real, *gridss_img, *gridss_w; -fftw_complex *fftwgrid; #ifdef USE_MPI MPI_Win slabwin; diff --git a/allvars.h b/allvars.h index 48f4e57fed880a8672d81792c4420a5e5697b6f4..0c31127a8155bba365207294209578c0d6e0279d 100644 --- a/allvars.h +++ b/allvars.h @@ -131,7 +131,6 @@ extern clock_t start, end, start0, startk, endk; extern struct timespec begin, finish, begin0, begink, finishk; extern long * histo_send, size_of_grid; extern double * grid, *gridss, *gridss_real, *gridss_img, *gridss_w; -extern fftw_complex *fftwgrid; #ifdef USE_MPI extern MPI_Win slabwin; diff --git a/fourier_transform.c b/fourier_transform.c index 7648e785206122677979f59b787d65778533a4dd..a0af7fd9c0a045ec9c120eb59435621aa848b392 100644 --- a/fourier_transform.c +++ b/fourier_transform.c @@ -10,6 +10,7 @@ void fftw_data(){ clock_gettime(CLOCK_MONOTONIC, &begin); start = clock(); fftw_plan plan; + fftw_complex *fftwgrid; ptrdiff_t alloc_local, local_n0, local_0_start; double norm = 1.0/(double)(param.grid_size_x*param.grid_size_y); @@ -56,6 +57,7 @@ void fftw_data(){ } fftw_destroy_plan(plan); + fftw_free(fftwgrid); #ifdef USE_MPI MPI_Win_fence(0,slabwin); @@ -150,7 +152,6 @@ void write_fftw_data(){ #endif #endif //WRITE_DATA - fftw_free(fftwgrid); // Phase correction