init_fftw3 Subroutine

public subroutine init_fftw3(long, larg)

Subroutine to initialize the FFTW3 process 1 FFT distributed on several threads. Complex 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

Calls

proc~~init_fftw3~~CallsGraph proc~init_fftw3 init_fftw3 proc~alloc_fftw3 alloc_fftw3 proc~init_fftw3->proc~alloc_fftw3 proc~make_plan_fftw3 make_plan_fftw3 proc~init_fftw3->proc~make_plan_fftw3 interface~fftw_alloc_complex fftw_alloc_complex proc~alloc_fftw3->interface~fftw_alloc_complex interface~fftw_plan_dft_2d fftw_plan_dft_2d proc~make_plan_fftw3->interface~fftw_plan_dft_2d

Called by

proc~~init_fftw3~~CalledByGraph proc~init_fftw3 init_fftw3 proc~calc_fftw3 calc_fftw3 proc~calc_fftw3->proc~init_fftw3 program~test_fftw3 test_fftw3 program~test_fftw3->proc~init_fftw3 program~test_fftw3->proc~calc_fftw3

Source Code

   subroutine init_fftw3(long, larg)
   !! Subroutine to initialize the FFTW3 process *1 FFT distributed on several threads*.
   !! Complex case.
   implicit none
   integer(kind=I4), intent(in) :: long  !! *first  2D array dimension*
   integer(kind=I4), intent(in) :: larg  !! *second 2D array dimension*

      call alloc_fftw3(long, larg)
      call make_plan_fftw3(long, larg)

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

   return
   endsubroutine init_fftw3