m_cuda_kernels_dist Module


Uses


Subroutines

public subroutine der_univ_dist(du, send_u_s, send_u_e, u, u_s, u_e, coeffs_s, coeffs_e, coeffs, n, ffr, fbc, faf)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: du
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_u_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_u_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: u
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_e
real(kind=dp), intent(in), device, dimension(:, :) :: coeffs_s
real(kind=dp), intent(in), device, dimension(:, :) :: coeffs_e
real(kind=dp), intent(in), device, dimension(:) :: coeffs
integer, intent(in), value :: n
real(kind=dp), intent(in), device, dimension(:) :: ffr
real(kind=dp), intent(in), device, dimension(:) :: fbc
real(kind=dp), intent(in), device, dimension(:) :: faf

public subroutine der_univ_subs(du, recv_u_s, recv_u_e, n, dist_sa, dist_sc)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: du
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_u_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_u_e
integer, intent(in), value :: n
real(kind=dp), intent(in), device, dimension(:) :: dist_sa
real(kind=dp), intent(in), device, dimension(:) :: dist_sc

public subroutine transeq_3fused_dist(du, dud, d2u, send_du_s, send_du_e, send_dud_s, send_dud_e, send_d2u_s, send_d2u_e, u, u_s, u_e, v, v_s, v_e, n, d1_coeffs_s, d1_coeffs_e, d1_coeffs, d1_fw, d1_bw, d1_af, d2_coeffs_s, d2_coeffs_e, d2_coeffs, d2_fw, d2_bw, d2_af)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: du
real(kind=dp), intent(out), device, dimension(:, :, :) :: dud
real(kind=dp), intent(out), device, dimension(:, :, :) :: d2u
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_du_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_du_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_dud_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_dud_e
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_d2u_s
real(kind=dp), intent(out), device, dimension(:, :, :) :: send_d2u_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: u
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: u_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: v
real(kind=dp), intent(in), device, dimension(:, :, :) :: v_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: v_e
integer, intent(in), value :: n
real(kind=dp), intent(in), device :: d1_coeffs_s(:,:)
real(kind=dp), intent(in), device :: d1_coeffs_e(:,:)
real(kind=dp), intent(in), device :: d1_coeffs(:)
real(kind=dp), intent(in), device :: d1_fw(:)
real(kind=dp), intent(in), device :: d1_bw(:)
real(kind=dp), intent(in), device :: d1_af(:)
real(kind=dp), intent(in), device :: d2_coeffs_s(:,:)
real(kind=dp), intent(in), device :: d2_coeffs_e(:,:)
real(kind=dp), intent(in), device :: d2_coeffs(:)
real(kind=dp), intent(in), device :: d2_fw(:)
real(kind=dp), intent(in), device :: d2_bw(:)
real(kind=dp), intent(in), device :: d2_af(:)

public subroutine transeq_3fused_subs(r_u, conv, du, dud, d2u, recv_du_s, recv_du_e, recv_dud_s, recv_dud_e, recv_d2u_s, recv_d2u_e, d1_sa, d1_sc, d2_sa, d2_sc, n, nu)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), device, dimension(:, :, :) :: r_u
real(kind=dp), intent(in), device, dimension(:, :, :) :: conv
real(kind=dp), intent(in), device, dimension(:, :, :) :: du
real(kind=dp), intent(in), device, dimension(:, :, :) :: dud
real(kind=dp), intent(in), device, dimension(:, :, :) :: d2u
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_du_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_du_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_dud_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_dud_e
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_d2u_s
real(kind=dp), intent(in), device, dimension(:, :, :) :: recv_d2u_e
real(kind=dp), intent(in), device, dimension(:) :: d1_sa
real(kind=dp), intent(in), device, dimension(:) :: d1_sc
real(kind=dp), intent(in), device, dimension(:) :: d2_sa
real(kind=dp), intent(in), device, dimension(:) :: d2_sc
integer, intent(in), value :: n
real(kind=dp), intent(in), value :: nu