tab_desalloc_fftw3 Subroutine

private subroutine tab_desalloc_fftw3()

Note

When no more transformation is needed, the memory is released. several FFT on single thread each

Arguments

None

Calls

proc~~tab_desalloc_fftw3~~CallsGraph proc~tab_desalloc_fftw3 tab_desalloc_fftw3 interface~fftw_free fftw_free proc~tab_desalloc_fftw3->interface~fftw_free

Called by

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

Source Code

   subroutine tab_desalloc_fftw3()
   implicit none

      integer(kind=I4) :: ithread

      do ithread = 0, NB_THREADS_FFT -1

        ! forward
         call fftw_free(tab_p_f_i(ithread)) ; tab_p_f_i(ithread) = C_NULL_PTR
         call fftw_free(tab_p_f_o(ithread)) ; tab_p_f_o(ithread) = C_NULL_PTR
         ! backward
         call fftw_free(tab_p_b_i(ithread)) ; tab_p_b_i(ithread) = C_NULL_PTR
         call fftw_free(tab_p_b_o(ithread)) ; tab_p_b_o(ithread) = C_NULL_PTR

      enddo

   return
   endsubroutine tab_desalloc_fftw3