restriction Subroutine

public subroutine restriction(mg_coarse, mg_fine)

This is routine that perform full-weight resctriction from fine to coarse grid system, mainly residual (res) on fine grid --> right-hand side (rhs) on coarse grid, wavenumber on fine grid --> wavenumber on the coarse grid Based on the relationship of the index between the fine and coarse grid

Arguments

Type IntentOptional Attributes Name
type(GridSystem), intent(inout) :: mg_coarse
type(GridSystem), intent(inout) :: mg_fine

Calls

proc~~restriction~~CallsGraph proc~restriction restriction proc~mg_check_xy2d mg_check_xy2d proc~restriction->proc~mg_check_xy2d proc~mg_checkreal_xy2d mg_checkreal_xy2d proc~restriction->proc~mg_checkreal_xy2d proc~mg_check_x2d mg_check_x2d proc~mg_check_xy2d->proc~mg_check_x2d proc~mg_check_y2d mg_check_y2d proc~mg_check_xy2d->proc~mg_check_y2d proc~mg_checkreal_x2d mg_checkreal_x2d proc~mg_checkreal_xy2d->proc~mg_checkreal_x2d proc~mg_checkreal_y2d mg_checkreal_y2d proc~mg_checkreal_xy2d->proc~mg_checkreal_y2d mpi_sendrecv mpi_sendrecv proc~mg_check_x2d->mpi_sendrecv proc~mg_check_y2d->mpi_sendrecv proc~mg_checkreal_x2d->mpi_sendrecv proc~mg_checkreal_y2d->mpi_sendrecv

Called by

proc~~restriction~~CalledByGraph proc~restriction restriction proc~f_cycle F_cycle proc~f_cycle->proc~restriction proc~f_cycle->proc~f_cycle proc~v_cycle V_cycle proc~f_cycle->proc~v_cycle proc~v_cycle->proc~restriction proc~v_cycle->proc~v_cycle proc~mgcslp_invmhx MGCSLP_invMHx proc~mgcslp_invmhx->proc~f_cycle proc~mgcslp_invmhx->proc~v_cycle proc~mgcslp_invmx MGCSLP_invMx proc~mgcslp_invmx->proc~f_cycle proc~mgcslp_invmx->proc~v_cycle proc~cprecon cprecon proc~cprecon->proc~mgcslp_invmx proc~def_arnoldi def_arnoldi proc~def_arnoldi->proc~mgcslp_invmhx proc~ex Ex proc~def_arnoldi->proc~ex proc~def_bicgstab DEF_bicgstab proc~def_bicgstab->proc~mgcslp_invmhx proc~def_bicgstab->proc~ex proc~def_fullgmres DEF_fullgmres proc~def_fullgmres->proc~mgcslp_invmhx proc~def_fullgmres->proc~def_arnoldi proc~def_fullgmres->proc~ex proc~ex->proc~mgcslp_invmhx proc~multileveladp_px MultiLevelADP_Px proc~multileveladp_px->proc~mgcslp_invmhx proc~multilevel_invey MultiLevel_invEy proc~multileveladp_px->proc~multilevel_invey proc~p_adef1x P_ADEF1x proc~p_adef1x->proc~mgcslp_invmx proc~qx Qx proc~p_adef1x->proc~qx proc~p_tlkmx P_TLKMx proc~p_tlkmx->proc~mgcslp_invmx proc~p_tlkmx->proc~qx proc~precond_x Precond_x proc~precond_x->proc~mgcslp_invmx proc~def_px DEF_Px proc~precond_x->proc~def_px interface~operator(SLASH) OPERATOR(/) interface~operator(SLASH)->proc~cprecon proc~def_prefgmres DEF_prefgmres proc~def_prefgmres->proc~multileveladp_px proc~def_px->proc~multileveladp_px proc~def_px->proc~p_adef1x proc~def_px->proc~p_tlkmx proc~p_defx P_DEFx proc~def_px->proc~p_defx proc~full_pgcr full_pgcr proc~full_pgcr->proc~precond_x proc~full_pgmres full_pgmres proc~full_pgmres->proc~precond_x proc~invey invEy proc~invey->proc~def_bicgstab proc~invey->proc~def_fullgmres proc~pfgmres pfgmres proc~pfgmres->proc~precond_x proc~pre_fullgmres Pre_fullgmres proc~pre_fullgmres->proc~precond_x proc~prearnoldi Prearnoldi proc~pre_fullgmres->proc~prearnoldi proc~pre_restartgmres Pre_restartgmres proc~pre_restartgmres->proc~precond_x proc~pre_restartgmres->proc~prearnoldi proc~prearnoldi->proc~precond_x proc~multilevel_invey->proc~def_prefgmres proc~qx->proc~invey program~helmholtz_2d helmholtz_2d program~helmholtz_2d->proc~full_pgcr program~helmholtz_2d->proc~full_pgmres program~helmholtz_2d->proc~pfgmres program~helmholtz_2d->proc~pre_fullgmres program~helmholtz_2d->proc~pre_restartgmres proc~p_defx->proc~qx proc~px Px proc~px->proc~qx