poisson_divide Subroutine

public subroutine poisson_divide(div_r, div_c, wave)

Divide one entry by its spectral equivalence constant, with the eps_wave guard that keeps roundoff noise out of the pressure field.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: div_r
real(kind=dp), intent(inout) :: div_c
complex(kind=dp), intent(in) :: wave

Called by

proc~~poisson_divide~~CalledByGraph proc~poisson_divide m_cuda_spectral::poisson_divide proc~process_spectral_010 m_cuda_spectral::process_spectral_010 proc~process_spectral_010->proc~poisson_divide proc~process_spectral_100_pair_fw m_cuda_spectral::process_spectral_100_pair_fw proc~process_spectral_100_pair_fw->proc~poisson_divide proc~fft_postprocess_010_cuda m_cuda_poisson_fft::cuda_poisson_fft_t%fft_postprocess_010_cuda proc~fft_postprocess_010_cuda->proc~process_spectral_010 proc~fft_postprocess_100_cuda m_cuda_poisson_fft::cuda_poisson_fft_t%fft_postprocess_100_cuda proc~fft_postprocess_100_cuda->proc~process_spectral_010 proc~fft_postprocess_100_cuda->proc~process_spectral_100_pair_fw