GATH_GRID_32_CTL Subroutine

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

Uses

  • proc~~gath_grid_32_ctl~~UsesGraph proc~gath_grid_32_ctl GATH_GRID_32_CTL MPL_MODULE MPL_MODULE proc~gath_grid_32_ctl->MPL_MODULE PARKIND1 PARKIND1 proc~gath_grid_32_ctl->PARKIND1 module~eq_regions_mod~2 eq_regions_mod proc~gath_grid_32_ctl->module~eq_regions_mod~2 module~set2pe_mod SET2PE_MOD proc~gath_grid_32_ctl->module~set2pe_mod module~tpm_dim TPM_DIM proc~gath_grid_32_ctl->module~tpm_dim module~tpm_distr TPM_DISTR proc~gath_grid_32_ctl->module~tpm_distr module~tpm_gen~2 TPM_GEN proc~gath_grid_32_ctl->module~tpm_gen~2 module~tpm_geometry~2 TPM_GEOMETRY proc~gath_grid_32_ctl->module~tpm_geometry~2 module~parkind_ectrans PARKIND_ECTRANS module~eq_regions_mod~2->module~parkind_ectrans module~tpm_dim->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen~2->module~parkind_ectrans module~tpm_geometry~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** GATH_GRID_32_CTL - Gather global gridpoint array from processors

  • Interface. ---------- CALL GATH_GRID_32_CTL(...)

$ ITAG = MTAGDISTSP+1+17 $ DO JROC=1,NPROC $ ISND=JROC $ IOFF=IOFFS(JROC) $ ILEN=ILENS(JROC) $ IF(ILEN > 0 ) THEN $ CALL MPL_SEND(ZFLD(IOFF+1:IOFF+ILEN),KDEST=NPRCIDS(ISND),KTAG=ITAG,& $ &KMP_TYPE=JP_NON_BLOCKING_STANDARD,KREQUEST=ISENDREQ(ISND),& $ &CDSTRING='GATH_GRID_32_CTL:') $ ENDIF $ ENDDO $ DO JROC=1,NPROC $ IRCV = JROC $ IOFF = IOFFR(JROC) $ ILEN = ILENR(JROC) $ IF(ILEN > 0 ) THEN $ CALL MPL_RECV(ZBUF(IOFF+1:IOFF+ILEN),KSOURCE=NPRCIDS(IRCV),& $ &KMP_TYPE=JP_BLOCKING_STANDARD,KOUNT=ILRECV,& $ &KTAG=ITAG,CDSTRING='GATH_GRID_32_CTL:') $ ENDIF $ ENDDO $ DO JROC=1,NPROC $ ISND=JROC $ ILEN=ILENS(JROC) $ IF(ILEN > 0 ) THEN $ CALL MPL_WAIT(KREQUEST=ISENDREQ(JROC), & $ & CDSTRING='GATH_GRID_32_CTL: WAIT') $ ENDIF $ ENDDO $ CALL GSTATS(784,0) $ CALL MPL_BARRIER(CDSTRING='GATH_GRID_32_CTL:') $ CALL GSTATS(784,1)

Arguments

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

Calls

proc~~gath_grid_32_ctl~~CallsGraph proc~gath_grid_32_ctl GATH_GRID_32_CTL gstats gstats proc~gath_grid_32_ctl->gstats gstats_barrier gstats_barrier proc~gath_grid_32_ctl->gstats_barrier gstats_barrier2 gstats_barrier2 proc~gath_grid_32_ctl->gstats_barrier2 mpl_alltoallv mpl_alltoallv proc~gath_grid_32_ctl->mpl_alltoallv mpl_recv mpl_recv proc~gath_grid_32_ctl->mpl_recv mpl_send mpl_send proc~gath_grid_32_ctl->mpl_send mpl_wait mpl_wait proc~gath_grid_32_ctl->mpl_wait proc~set2pe SET2PE proc~gath_grid_32_ctl->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

Called by

proc~~gath_grid_32_ctl~~CalledByGraph proc~gath_grid_32_ctl GATH_GRID_32_CTL proc~gath_grid_32 GATH_GRID_32 proc~gath_grid_32->proc~gath_grid_32_ctl proc~gath_grid_32~2 GATH_GRID_32 proc~gath_grid_32~2->proc~gath_grid_32_ctl