destroy_plan_fftw3 Subroutine

private subroutine destroy_plan_fftw3()

Plans are no more needed as no additional transformation will occur. 1 FFT distributed on several threads

Arguments

None

Calls

proc~~destroy_plan_fftw3~~CallsGraph proc~destroy_plan_fftw3 destroy_plan_fftw3 interface~fftw_destroy_plan fftw_destroy_plan proc~destroy_plan_fftw3->interface~fftw_destroy_plan

Called by

proc~~destroy_plan_fftw3~~CalledByGraph proc~destroy_plan_fftw3 destroy_plan_fftw3 proc~end_fftw3 end_fftw3 proc~end_fftw3->proc~destroy_plan_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 destroy_plan_fftw3()
   !! Plans are no more needed as no additional transformation will occur. *1 FFT distributed on several threads*
   implicit none

      ! forward
      call fftw_destroy_plan(plan_f)

      ! backward
      call fftw_destroy_plan(plan_b)

   return
   endsubroutine destroy_plan_fftw3