der_univ_dist Subroutine

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

First phase of the distributed solve: builds the RHS and runs the forward and backward hybrid sweeps, leaving the 2x2 boundary values in the send buffers.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: du(SZ,n,n_groups)
real(kind=dp), intent(inout) :: send_u_s(SZ,1,n_groups)
real(kind=dp), intent(inout) :: send_u_e(SZ,1,n_groups)
real(kind=dp), intent(in) :: u(SZ,n,n_groups)
real(kind=dp), intent(in) :: u_s(SZ,4,n_groups)
real(kind=dp), intent(in) :: u_e(SZ,4,n_groups)
integer, intent(in) :: n_tds
integer, intent(in) :: n_rhs
real(kind=dp), intent(in) :: coeffs_s(9,4)
real(kind=dp), intent(in) :: coeffs_e(9,4)
real(kind=dp), intent(in) :: coeffs(9)
real(kind=dp), intent(in) :: ffr(n_rhs)
real(kind=dp), intent(in) :: fbc(n_rhs)
real(kind=dp), intent(in) :: faf(n_rhs)
integer, intent(in) :: n
integer, intent(in) :: n_groups

Called by

proc~~der_univ_dist~2~~CalledByGraph proc~der_univ_dist~2 m_omptgt_kernels_dist::der_univ_dist proc~exec_dist_tds_compact m_omptgt_exec_dist::exec_dist_tds_compact proc~exec_dist_tds_compact->proc~der_univ_dist~2