Adding deallocation for some arrays

sdsc · Oct 26, 2017 · 1b8d76b · 1b8d76b
1 parent 9d6265e
commit 1b8d76b
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/build/module.F90 b/build/module.F90
@@ -272,12 +272,10 @@ subroutine p3dfft_clean()
       call dfftw_destroy_plan(plan2_bc_same(tid))
       call dfftw_destroy_plan(plan_ctrans_same(tid))
       call dfftw_destroy_plan(plan_strans_same(tid))
-#ifdef STRIDE1
       call dfftw_destroy_plan(plan_strans_dif(tid))
       call dfftw_destroy_plan(plan_ctrans_dif(tid))
       call dfftw_destroy_plan(plan2_fc_dif(tid))
       call dfftw_destroy_plan(plan2_bc_dif(tid))
-#endif
 #else
       call sfftw_destroy_plan(plan1_frc(tid))
       call sfftw_destroy_plan(plan1_bcr(tid))
@@ -287,19 +285,15 @@ subroutine p3dfft_clean()
       call sfftw_destroy_plan(plan2_bc_same(tid))
       call sfftw_destroy_plan(plan_ctrans_same(tid))
       call sfftw_destroy_plan(plan_strans_same(tid))
-#ifdef STRIDE1
       call sfftw_destroy_plan(plan2_fc_dif(tid))
       call sfftw_destroy_plan(plan2_bc_dif(tid))
       call sfftw_destroy_plan(plan_ctrans_dif(tid))
       call sfftw_destroy_plan(plan_strans_dif(tid))
-#endif
 #endif
       enddo
 
       deallocate(plan1_frc,plan1_bcr,plan1_fc,plan2_fc_same,plan1_bc,plan2_bc_same,plan_ctrans_same,plan_strans_same)
-#ifdef STRIDE1
       deallocate(plan_ctrans_dif,plan_strans_dif,plan2_fc_dif,plan2_bc_dif)
-#endif
 
 #elif defined ESSL
       deallocate(caux1)