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~2~~UsesGraph proc~gath_spec_control~2 GATH_SPEC_CONTROL MPL_MODULE MPL_MODULE proc~gath_spec_control~2->MPL_MODULE PARKIND1 PARKIND1 proc~gath_spec_control~2->PARKIND1 module~abort_trans_mod ABORT_TRANS_MOD proc~gath_spec_control~2->module~abort_trans_mod module~set2pe_mod SET2PE_MOD proc~gath_spec_control~2->module~set2pe_mod module~tpm_distr TPM_DISTR proc~gath_spec_control~2->module~tpm_distr module~tpm_geometry~2 TPM_GEOMETRY proc~gath_spec_control~2->module~tpm_geometry~2 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~parkind_ectrans PARKIND_ECTRANS module~tpm_geometry~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

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