init_fftw3_real Subroutine

public subroutine init_fftw3_real(long, larg, plan_flag)

Subroutine to initialize the FFTW3 process 1 FFT distributed on several threads Real case.

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(in) :: long

first 2D array dimension
integer(kind=I4), intent(in) :: larg

second 2D array dimension
integer(kind=I4), intent(in) :: plan_flag

planning option, FFTW_ESTIMATE for example

Calls

proc~~init_fftw3_real~~CallsGraph proc~init_fftw3_real init_fftw3_real proc~alloc_fftw3_real alloc_fftw3_real proc~init_fftw3_real->proc~alloc_fftw3_real proc~make_plan_fftw3_real make_plan_fftw3_real proc~init_fftw3_real->proc~make_plan_fftw3_real interface~fftw_alloc_complex fftw_alloc_complex proc~alloc_fftw3_real->interface~fftw_alloc_complex interface~fftw_alloc_real fftw_alloc_real proc~alloc_fftw3_real->interface~fftw_alloc_real interface~fftw_plan_dft_c2r_2d fftw_plan_dft_c2r_2d proc~make_plan_fftw3_real->interface~fftw_plan_dft_c2r_2d interface~fftw_plan_dft_r2c_2d fftw_plan_dft_r2c_2d proc~make_plan_fftw3_real->interface~fftw_plan_dft_r2c_2d

Called by

proc~~init_fftw3_real~~CalledByGraph proc~init_fftw3_real init_fftw3_real proc~calc_fftw3_real_bwd calc_fftw3_real_bwd proc~calc_fftw3_real_bwd->proc~init_fftw3_real proc~calc_fftw3_real_fwd calc_fftw3_real_fwd proc~calc_fftw3_real_fwd->proc~init_fftw3_real program~test_fftw3 test_fftw3 program~test_fftw3->proc~init_fftw3_real program~test_fftw3->proc~calc_fftw3_real_bwd program~test_fftw3->proc~calc_fftw3_real_fwd

Source Code

   subroutine init_fftw3_real(long, larg, plan_flag)
   !! Subroutine to initialize the FFTW3 process *1 FFT distributed on several threads*
   !! Real case.
   implicit none
   integer(kind=I4), intent(in) :: long      !! *first  2D array dimension*
   integer(kind=I4), intent(in) :: larg      !! *second 2D array dimension*
   integer(kind=I4), intent(in) :: plan_flag !! *planning option, [[fftw3(module):FFTW_ESTIMATE]] for example*

      call alloc_fftw3_real(long, larg)
      call make_plan_fftw3_real(long, larg, plan_flag)

      SINGL_FFTW_ALLOCATED = .true.
      FFT_DIM(1:2) = [long, larg]

   return
   endsubroutine init_fftw3_real