FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(inout), | dimension (:,xxf_lo%llim_proc:) | :: | xxf | ||
complex, | intent(out), | dimension (-xxf_lo%ntgrid:,:,g_lo%llim_proc:) | :: | g |
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