m_cuda_exec_dist Module


Uses


Subroutines

public subroutine exec_dist_tds_compact(du, u, u_recv_s, u_recv_e, du_send_s, du_send_e, du_recv_s, du_recv_e, tdsops, nproc, pprev, pnext, blocks, threads)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: du
real(kind=dp), intent(in), device, dimension(:, :, :) :: u
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_recv_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_recv_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_send_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_send_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_recv_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_recv_e
type(cuda_tdsops_t), intent(in) :: tdsops
integer, intent(in) :: nproc
integer, intent(in) :: pprev
integer, intent(in) :: pnext
type(dim3), intent(in) :: blocks
type(dim3), intent(in) :: threads

public subroutine exec_dist_transeq_3fused(r_du, u, u_recv_s, u_recv_e, v, v_recv_s, v_recv_e, dud, d2u, du_send_s, du_send_e, du_recv_s, du_recv_e, dud_send_s, dud_send_e, dud_recv_s, dud_recv_e, d2u_send_s, d2u_send_e, d2u_recv_s, d2u_recv_e, der1st, der2nd, nu, nproc, pprev, pnext, blocks, threads)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: r_du

The result array, it is also used as temporary storage
real(kind=dp), intent(in), device, dimension(:, :, :) :: u
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_recv_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_recv_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: v
real(kind=dp), intent(in), device, dimension(:, :, :) :: v_recv_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: v_recv_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_send_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_send_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_recv_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: du_recv_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud_send_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud_send_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud_recv_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud_recv_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u_send_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u_send_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u_recv_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u_recv_e
type(cuda_tdsops_t), intent(in) :: der1st
type(cuda_tdsops_t), intent(in) :: der2nd
real(kind=dp), intent(in) :: nu
integer, intent(in) :: nproc
integer, intent(in) :: pprev
integer, intent(in) :: pnext
type(dim3), intent(in) :: blocks
type(dim3), intent(in) :: threads