inverse_x5d Subroutine

private subroutine inverse_x5d(xxf, g)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(inout), dimension (:,xxf_lo%llim_proc:) :: xxf
complex, intent(out), dimension (-xxf_lo%ntgrid:,:,g_lo%llim_proc:) :: g

Contents

Source Code


Source Code

  subroutine inverse_x5d (xxf, g)
    use gs2_layouts, only: xxf_lo, g_lo
    use redistribute, only: scatter
    use job_manage, only: time_message
    use fft_work, only: time_fft
    implicit none
    complex, dimension (:,xxf_lo%llim_proc:), intent (in out) :: xxf
    complex, dimension (-xxf_lo%ntgrid:,:,g_lo%llim_proc:), intent (out) :: g

#if FFT == _FFTW3_
    call time_message(.false., time_fft, ' FFT')
    call FFTW_PREFIX(_execute_dft)(xb_fft%plan, xxf, xxf)
    call time_message(.false., time_fft, ' FFT')
#endif

    call scatter (g2x, xxf, g)
  end subroutine inverse_x5d