DIST_SPEC_CONTROL Subroutine

public subroutine DIST_SPEC_CONTROL(PSPECG, KFDISTG, KFROM, KVSET, PSPEC, LDIM1_IS_FLD, KSMAX, KSPEC2, KSPEC2MX, KSPEC2G, KPOSSP, KDIM0G, KUMPP, KALLMS, KPTRMS, KN, KSORT)

Uses

  • proc~~dist_spec_control~2~~UsesGraph proc~dist_spec_control~2 DIST_SPEC_CONTROL MPL_MODULE MPL_MODULE proc~dist_spec_control~2->MPL_MODULE PARKIND1 PARKIND1 proc~dist_spec_control~2->PARKIND1 module~abort_trans_mod ABORT_TRANS_MOD proc~dist_spec_control~2->module~abort_trans_mod module~set2pe_mod SET2PE_MOD proc~dist_spec_control~2->module~set2pe_mod module~tpm_distr TPM_DISTR proc~dist_spec_control~2->module~tpm_distr EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND

*** DIST_SPEC_CONTROL - Distribute global spectral array among processors

  • Interface. ---------- CALL DIST_SPEC_CONTROL(...)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRB), intent(in), optional, CONTIGUOUS :: PSPECG(:,:)
integer(kind=JPIM), intent(in) :: KFDISTG
integer(kind=JPIM), intent(in) :: KFROM(:)
integer(kind=JPIM), intent(in) :: KVSET(:)
real(kind=JPRB), intent(out), optional, CONTIGUOUS :: PSPEC(:,:)
logical, intent(in) :: 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(NPRTRW+1)
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)
integer(kind=JPIM), intent(in), optional, TARGET :: KSORT(:)

Calls

proc~~dist_spec_control~2~~CallsGraph proc~dist_spec_control~2 DIST_SPEC_CONTROL gstats gstats proc~dist_spec_control~2->gstats gstats_barrier gstats_barrier proc~dist_spec_control~2->gstats_barrier gstats_barrier2 gstats_barrier2 proc~dist_spec_control~2->gstats_barrier2 mpl_recv mpl_recv proc~dist_spec_control~2->mpl_recv mpl_send mpl_send proc~dist_spec_control~2->mpl_send mpl_wait mpl_wait proc~dist_spec_control~2->mpl_wait mpl_waitany mpl_waitany proc~dist_spec_control~2->mpl_waitany proc~set2pe SET2PE proc~dist_spec_control~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