GATH_SPEC_CONTROL Subroutine

public subroutine GATH_SPEC_CONTROL(PSPECG, KFGATHG, KTO, KVSET, PSPEC, LDIM1_IS_FLD, KSMAX, KSPEC2, KSPEC2MX, KSPEC2G, KPOSSP, KDIM0G, KUMPP, KALLMS, KPTRMS, KN, LDZA0IP)

Uses

  • proc~~gath_spec_control~~UsesGraph proc~gath_spec_control GATH_SPEC_CONTROL MPL_MODULE MPL_MODULE proc~gath_spec_control->MPL_MODULE PARKIND1 PARKIND1 proc~gath_spec_control->PARKIND1 module~abort_trans_mod ABORT_TRANS_MOD proc~gath_spec_control->module~abort_trans_mod module~set2pe_mod SET2PE_MOD proc~gath_spec_control->module~set2pe_mod module~tpm_distr TPM_DISTR proc~gath_spec_control->module~tpm_distr module~tpm_geometry TPM_GEOMETRY proc~gath_spec_control->module~tpm_geometry EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_geometry->EC_PARKIND

*** GATH_SPEC_CONTROL - Gather global spectral array from processors

  • Interface. ---------- CALL GATH_SPEC_CONTROL(...)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRB), intent(out), optional :: PSPECG(:,:)
integer(kind=JPIM), intent(in) :: KFGATHG
integer(kind=JPIM), intent(in) :: KTO(:)
integer(kind=JPIM), intent(in) :: KVSET(:)
real(kind=JPRB), intent(in), optional :: PSPEC(:,:)
logical, intent(in), optional :: LDIM1_IS_FLD
integer(kind=JPIM), intent(in) :: KSMAX
integer(kind=JPIM), intent(in) :: KSPEC2
integer(kind=JPIM), intent(in) :: KSPEC2MX
integer(kind=JPIM), intent(in) :: KSPEC2G
integer(kind=JPIM), intent(in) :: KPOSSP(:)
integer(kind=JPIM), intent(in) :: KDIM0G(0:)
integer(kind=JPIM), intent(in) :: KUMPP(NPRTRW)
integer(kind=JPIM), intent(in) :: KALLMS(KSMAX+1)
integer(kind=JPIM), intent(in) :: KPTRMS(NPRTRW)
integer(kind=JPIM), intent(in) :: KN(0:KSMAX)
logical, intent(in), optional :: LDZA0IP

Calls

proc~~gath_spec_control~~CallsGraph proc~gath_spec_control GATH_SPEC_CONTROL gstats gstats proc~gath_spec_control->gstats gstats_barrier gstats_barrier proc~gath_spec_control->gstats_barrier gstats_barrier2 gstats_barrier2 proc~gath_spec_control->gstats_barrier2 mpl_recv mpl_recv proc~gath_spec_control->mpl_recv mpl_send mpl_send proc~gath_spec_control->mpl_send mpl_wait mpl_wait proc~gath_spec_control->mpl_wait proc~abort_trans ABORT_TRANS proc~gath_spec_control->proc~abort_trans proc~set2pe SET2PE proc~gath_spec_control->proc~set2pe 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 proc~set2pe->proc~abort_trans abor1 abor1 proc~set2pe->abor1

Called by

proc~~gath_spec_control~~CalledByGraph proc~gath_spec_control GATH_SPEC_CONTROL proc~gath_spec GATH_SPEC proc~gath_spec->proc~gath_spec_control proc~gath_spec~2 GATH_SPEC proc~gath_spec~2->proc~gath_spec_control