From 1b8d76bf6e8ecd5d3fd8133c64e7cdfa25e83e48 Mon Sep 17 00:00:00 2001 From: Dmitry Pekurovsky Date: Thu, 26 Oct 2017 14:53:09 -0700 Subject: [PATCH] Adding deallocation for some arrays --- build/module.F90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/build/module.F90 b/build/module.F90 index f2d150a..9d41393 100644 --- 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)