tab_destroy_plan_fftw3 Subroutine

private subroutine tab_destroy_plan_fftw3()

Plans are no more needed as no additional transformation will occur. several FFT on single thread each

Arguments

None

Calls

proc~~tab_destroy_plan_fftw3~~CallsGraph proc~tab_destroy_plan_fftw3 tab_destroy_plan_fftw3 interface~fftw_destroy_plan fftw_destroy_plan proc~tab_destroy_plan_fftw3->interface~fftw_destroy_plan

Called by

proc~~tab_destroy_plan_fftw3~~CalledByGraph proc~tab_destroy_plan_fftw3 tab_destroy_plan_fftw3 proc~tab_end_fftw3 tab_end_fftw3 proc~tab_end_fftw3->proc~tab_destroy_plan_fftw3 proc~tab_end_fftw3_real tab_end_fftw3_real proc~tab_end_fftw3_real->proc~tab_destroy_plan_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_destroy_plan_fftw3()
   !! Plans are no more needed as no additional transformation will occur. *several FFT on single thread each*
   implicit none

      integer(kind=I4) :: ithread

      do ithread = 0, NB_THREADS_FFT -1

         ! forward
         call fftw_destroy_plan(tab_plan_f(ithread))

         ! backward
         call fftw_destroy_plan(tab_plan_b(ithread))

      enddo

   return
   endsubroutine tab_destroy_plan_fftw3