GATH_GRID_CTL Subroutine

public subroutine GATH_GRID_CTL(PGPG, KFGATHG, KPROMA, KTO, PGP)

Uses

  • proc~~gath_grid_ctl~2~~UsesGraph proc~gath_grid_ctl~2 GATH_GRID_CTL MPL_MODULE MPL_MODULE proc~gath_grid_ctl~2->MPL_MODULE PARKIND1 PARKIND1 proc~gath_grid_ctl~2->PARKIND1 module~eq_regions_mod~2 eq_regions_mod proc~gath_grid_ctl~2->module~eq_regions_mod~2 module~set2pe_mod SET2PE_MOD proc~gath_grid_ctl~2->module~set2pe_mod module~tpm_distr TPM_DISTR proc~gath_grid_ctl~2->module~tpm_distr module~tpm_geometry~2 TPM_GEOMETRY proc~gath_grid_ctl~2->module~tpm_geometry~2 module~parkind_ectrans PARKIND_ECTRANS module~eq_regions_mod~2->module~parkind_ectrans EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_geometry~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** GATH_GRID_CTL - Gather global gridpoint array from processors

  • Interface. ---------- CALL GATH_GRID_CTL(...)

$ CALL GSTATS(784,0) $ CALL MPL_BARRIER(CDSTRING='GATH_GRID_CTL:') $ CALL GSTATS(784,1)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRB), intent(out), optional :: PGPG(:,:)
integer(kind=JPIM), intent(in) :: KFGATHG
integer(kind=JPIM), intent(in) :: KPROMA
integer(kind=JPIM), intent(in) :: KTO(:)
real(kind=JPRB), intent(in) :: PGP(:,:,:)

Calls

proc~~gath_grid_ctl~2~~CallsGraph proc~gath_grid_ctl~2 GATH_GRID_CTL gstats gstats proc~gath_grid_ctl~2->gstats gstats_barrier gstats_barrier proc~gath_grid_ctl~2->gstats_barrier gstats_barrier2 gstats_barrier2 proc~gath_grid_ctl~2->gstats_barrier2 mpl_alltoallv mpl_alltoallv proc~gath_grid_ctl~2->mpl_alltoallv mpl_recv mpl_recv proc~gath_grid_ctl~2->mpl_recv mpl_send mpl_send proc~gath_grid_ctl~2->mpl_send mpl_wait mpl_wait proc~gath_grid_ctl~2->mpl_wait proc~set2pe SET2PE proc~gath_grid_ctl~2->proc~set2pe abor1 abor1 proc~set2pe->abor1 proc~abort_trans ABORT_TRANS proc~set2pe->proc~abort_trans mpl_abort mpl_abort proc~abort_trans->mpl_abort sdl_srlabort sdl_srlabort proc~abort_trans->sdl_srlabort sdl_traceback sdl_traceback proc~abort_trans->sdl_traceback