process_spectral_110_y_pair_fw Subroutine

public subroutine process_spectral_110_y_pair_fw(div_u, nz_h, nx, ny, y_sp_st, ay, by)

Step 3 (forward): Y paired even/odd split Y is dim3 (blockIdx%y = k). Only k in [2, ny/2+1] executes. Writes to k and ny-k+2. Race-free (pair block doesn't enter).

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(inout), device, dimension(:, :, :) :: div_u
integer, intent(in), value :: nz_h
integer, intent(in), value :: nx
integer, intent(in), value :: ny
integer, intent(in), value :: y_sp_st
real(kind=dp), intent(in), device, dimension(:) :: ay
real(kind=dp), intent(in), device, dimension(:) :: by

Called by

proc~~process_spectral_110_y_pair_fw~~CalledByGraph proc~process_spectral_110_y_pair_fw m_cuda_spectral::process_spectral_110_y_pair_fw proc~fft_postprocess_110_cuda m_cuda_poisson_fft::cuda_poisson_fft_t%fft_postprocess_110_cuda proc~fft_postprocess_110_cuda->proc~process_spectral_110_y_pair_fw