transeq_3fused_dist Subroutine

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_tds, n_rhs, du_coeffs_s, du_coeffs_e, du_coeffs, du_fw, du_bw, du_af, dud_coeffs_s, dud_coeffs_e, dud_coeffs, dud_fw, dud_bw, dud_af, d2u_coeffs_s, d2u_coeffs_e, d2u_coeffs, d2u_fw, d2u_bw, d2u_af, n, n_groups)

First phase for du = d(u), dud = d(u*v) and d2u = d2(u) in one sweep.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout) :: du(SZ,n,n_groups)
real(kind=dp), intent(inout) :: dud(SZ,n,n_groups)
real(kind=dp), intent(inout) :: d2u(SZ,n,n_groups)
real(kind=dp), intent(inout) :: send_du_s(SZ,1,n_groups)
real(kind=dp), intent(inout) :: send_du_e(SZ,1,n_groups)
real(kind=dp), intent(inout) :: send_dud_s(SZ,1,*)
real(kind=dp), intent(inout) :: send_dud_e(SZ,1,*)
real(kind=dp), intent(inout) :: send_d2u_s(SZ,1,*)
real(kind=dp), intent(inout) :: send_d2u_e(SZ,1,*)
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)
real(kind=dp), intent(in) :: v(SZ,n,n_groups)
real(kind=dp), intent(in) :: v_s(SZ,4,n_groups)
real(kind=dp), intent(in) :: v_e(SZ,4,n_groups)
integer, intent(in) :: n_tds
integer, intent(in) :: n_rhs
real(kind=dp), intent(in) :: du_coeffs_s(9,4)
real(kind=dp), intent(in) :: du_coeffs_e(9,4)
real(kind=dp), intent(in) :: du_coeffs(9)
real(kind=dp), intent(in) :: du_fw(n_rhs)
real(kind=dp), intent(in) :: du_bw(n_rhs)
real(kind=dp), intent(in) :: du_af(n_rhs)
real(kind=dp), intent(in) :: dud_coeffs_s(9,4)
real(kind=dp), intent(in) :: dud_coeffs_e(9,4)
real(kind=dp), intent(in) :: dud_coeffs(9)
real(kind=dp), intent(in) :: dud_fw(n_rhs)
real(kind=dp), intent(in) :: dud_bw(n_rhs)
real(kind=dp), intent(in) :: dud_af(n_rhs)
real(kind=dp), intent(in) :: d2u_coeffs_s(9,4)
real(kind=dp), intent(in) :: d2u_coeffs_e(9,4)
real(kind=dp), intent(in) :: d2u_coeffs(9)
real(kind=dp), intent(in) :: d2u_fw(n_rhs)
real(kind=dp), intent(in) :: d2u_bw(n_rhs)
real(kind=dp), intent(in) :: d2u_af(n_rhs)
integer, intent(in) :: n
integer, intent(in) :: n_groups

Called by

proc~~transeq_3fused_dist~~CalledByGraph proc~transeq_3fused_dist m_omptgt_kernels_dist::transeq_3fused_dist proc~exec_dist_transeq_3fused m_omptgt_exec_dist::exec_dist_transeq_3fused proc~exec_dist_transeq_3fused->proc~transeq_3fused_dist