desalloc_fftw3 Subroutine

private subroutine desalloc_fftw3()

Note

When no more transformation is needed, the memory is released. 1 FFT distributed on several threads

Arguments

None

Calls

proc~~desalloc_fftw3~~CallsGraph proc~desalloc_fftw3 desalloc_fftw3 interface~fftw_free fftw_free proc~desalloc_fftw3->interface~fftw_free

Called by

proc~~desalloc_fftw3~~CalledByGraph proc~desalloc_fftw3 desalloc_fftw3 proc~end_fftw3 end_fftw3 proc~end_fftw3->proc~desalloc_fftw3 proc~calc_fftw3 calc_fftw3 proc~calc_fftw3->proc~end_fftw3 proc~calc_fftw3_real_bwd calc_fftw3_real_bwd proc~calc_fftw3_real_bwd->proc~end_fftw3 proc~calc_fftw3_real_fwd calc_fftw3_real_fwd proc~calc_fftw3_real_fwd->proc~end_fftw3 program~test_fftw3 test_fftw3 program~test_fftw3->proc~end_fftw3 program~test_fftw3->proc~calc_fftw3 program~test_fftw3->proc~calc_fftw3_real_bwd program~test_fftw3->proc~calc_fftw3_real_fwd

Source Code

   subroutine desalloc_fftw3()
   implicit none

      ! forward
      call fftw_free(p_f_i) ; p_f_i = C_NULL_PTR
      call fftw_free(p_f_o) ; p_f_o = C_NULL_PTR

      ! backward
      call fftw_free(p_b_i) ; p_b_i = C_NULL_PTR
      call fftw_free(p_b_o) ; p_b_o = C_NULL_PTR

   return
   endsubroutine desalloc_fftw3