exec_dist_penta_periodic Subroutine

public subroutine exec_dist_penta_periodic(du, u, u_recv_s, u_recv_e, tdsops, n_groups)

Cyclic pentadiagonal compact solve via Sherman-Morrison-Woodbury. Halos u_recv_s/e must hold the periodic extension.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), pointer, contiguous, dimension(:, :, :) :: du
real(kind=dp), intent(in), pointer, contiguous, dimension(:, :, :) :: u
real(kind=dp), intent(in), pointer, contiguous, dimension(:, :, :) :: u_recv_s
real(kind=dp), intent(in), pointer, contiguous, dimension(:, :, :) :: u_recv_e
type(omptgt_tdsops_t), intent(in) :: tdsops
integer, intent(in) :: n_groups

Calls

proc~~exec_dist_penta_periodic~~CallsGraph proc~exec_dist_penta_periodic m_omptgt_exec_dist::exec_dist_penta_periodic proc~abort_run m_logger::abort_run proc~exec_dist_penta_periodic->proc~abort_run proc~der_penta_periodic~2 m_omptgt_kernels_dist::der_penta_periodic proc~exec_dist_penta_periodic->proc~der_penta_periodic~2 interface~str m_logger::str proc~abort_run->interface~str mpi_abort mpi_abort proc~abort_run->mpi_abort mpi_barrier mpi_barrier proc~abort_run->mpi_barrier mpi_comm_rank mpi_comm_rank proc~abort_run->mpi_comm_rank mpi_comm_size mpi_comm_size proc~abort_run->mpi_comm_size mpi_finalized mpi_finalized proc~abort_run->mpi_finalized mpi_initialized mpi_initialized proc~abort_run->mpi_initialized