Changes in variables

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;

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;

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