end_fftw3 Subroutine

public subroutine end_fftw3()

FFTW3 is no more useful from here. 1 FFT distributed on several threads

Arguments

None

Calls

proc~~end_fftw3~~CallsGraph proc~end_fftw3 end_fftw3 proc~desalloc_fftw3 desalloc_fftw3 proc~end_fftw3->proc~desalloc_fftw3 proc~destroy_plan_fftw3 destroy_plan_fftw3 proc~end_fftw3->proc~destroy_plan_fftw3 interface~fftw_free fftw_free proc~desalloc_fftw3->interface~fftw_free interface~fftw_destroy_plan fftw_destroy_plan proc~destroy_plan_fftw3->interface~fftw_destroy_plan

Called by

proc~~end_fftw3~~CalledByGraph proc~end_fftw3 end_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 end_fftw3()
   !! FFTW3 is no more useful from here. *1 FFT distributed on several threads*
   implicit none

      if ( SINGL_FFTW_ALLOCATED ) then

         call destroy_plan_fftw3()
         call desalloc_fftw3()

      endif

      SINGL_FFTW_ALLOCATED = .false.

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

   return
   endsubroutine end_fftw3