tab_end_fftw3 Subroutine

public subroutine tab_end_fftw3()

FFTW3 is no more useful from here. several FFT on single thread each

Arguments

None

Calls

proc~~tab_end_fftw3~~CallsGraph proc~tab_end_fftw3 tab_end_fftw3 proc~tab_desalloc_fftw3 tab_desalloc_fftw3 proc~tab_end_fftw3->proc~tab_desalloc_fftw3 proc~tab_destroy_plan_fftw3 tab_destroy_plan_fftw3 proc~tab_end_fftw3->proc~tab_destroy_plan_fftw3 interface~fftw_free fftw_free proc~tab_desalloc_fftw3->interface~fftw_free interface~fftw_destroy_plan fftw_destroy_plan proc~tab_destroy_plan_fftw3->interface~fftw_destroy_plan

Called by

proc~~tab_end_fftw3~~CalledByGraph proc~tab_end_fftw3 tab_end_fftw3 program~test_fftw3 test_fftw3 program~test_fftw3->proc~tab_end_fftw3

Source Code

   subroutine tab_end_fftw3()
   !! FFTW3 is no more useful from here. *several FFT on single thread each*
   implicit none

      if ( MULTI_FFTW_ALLOCATED ) then

         call tab_destroy_plan_fftw3()
         call tab_desalloc_fftw3()

         deallocate(   tab_p_f_i,   tab_p_f_o,   tab_p_b_i,   tab_p_b_o )
         deallocate( tab_cmp_f_i, tab_cmp_f_o, tab_cmp_b_i, tab_cmp_b_o )
         deallocate( tab_plan_f, tab_plan_b )

      endif

      MULTI_FFTW_ALLOCATED = .false.

      FFT_DIM(1:2) = [0, 0]

   return
   endsubroutine tab_end_fftw3