tab_end_fftw3_real Subroutine

public subroutine tab_end_fftw3_real()

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

Arguments

None

Calls

proc~~tab_end_fftw3_real~~CallsGraph proc~tab_end_fftw3_real tab_end_fftw3_real proc~tab_desalloc_fftw3 tab_desalloc_fftw3 proc~tab_end_fftw3_real->proc~tab_desalloc_fftw3 proc~tab_destroy_plan_fftw3 tab_destroy_plan_fftw3 proc~tab_end_fftw3_real->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_real~~CalledByGraph proc~tab_end_fftw3_real tab_end_fftw3_real program~test_fftw3 test_fftw3 program~test_fftw3->proc~tab_end_fftw3_real

Source Code

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

      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_rea_f_i, tab_cmp_f_o, tab_cmp_b_i, tab_rea_b_o )
      deallocate( tab_plan_f, tab_plan_b )

      MULTI_FFTW_ALLOCATED = .false.

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

   return
   endsubroutine tab_end_fftw3_real