SETUP_TRANS0 Subroutine

subroutine SETUP_TRANS0(KOUT, KERR, KPRINTLEV, KMAX_RESOL, KPROMATR, KPRGPNS, KPRGPEW, KPRTRW, KCOMBFLEN, LDMPOFF, LDSYNC_TRANS, KTRANS_SYNC_LEVEL, LDEQ_REGIONS, K_REGIONS_NS, K_REGIONS_EW, K_REGIONS, PRAD, LDALLOPERM, KOPT_MEMORY_TR)

Uses

  • proc~~setup_trans0~~UsesGraph proc~setup_trans0 SETUP_TRANS0 ECTRANS_VERSION_MOD ECTRANS_VERSION_MOD proc~setup_trans0->ECTRANS_VERSION_MOD EC_ENV_MOD EC_ENV_MOD proc~setup_trans0->EC_ENV_MOD MPL_MODULE MPL_MODULE proc~setup_trans0->MPL_MODULE PARKIND1 PARKIND1 proc~setup_trans0->PARKIND1 module~abort_trans_mod ABORT_TRANS_MOD proc~setup_trans0->module~abort_trans_mod module~eq_regions_mod~2 eq_regions_mod proc~setup_trans0->module~eq_regions_mod~2 module~sump_trans0_mod~2 SUMP_TRANS0_MOD proc~setup_trans0->module~sump_trans0_mod~2 module~tpm_constants~2 TPM_CONSTANTS proc~setup_trans0->module~tpm_constants~2 module~tpm_distr TPM_DISTR proc~setup_trans0->module~tpm_distr module~tpm_gen~2 TPM_GEN proc~setup_trans0->module~tpm_gen~2 module~parkind_ectrans PARKIND_ECTRANS module~eq_regions_mod~2->module~parkind_ectrans module~tpm_constants~2->module~parkind_ectrans EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** SETUP_TRANS0 - General setup routine for transform package

  • Interface. ---------- CALL SETUP_TRANS0(...)

CALL GSTATS_LABEL_IFS() CALL ACC_SET_DEVICE_NUM(IDEVICE_NUM,ACC_DEVICE_NVIDIA) CALL ACC_INIT(ACC_DEVICE_NVIDIA) CALL ACC_SET_DEVICE_NUM(IDEVICE_NUM,ACC_DEVICE_NVIDIA) CALL ACC_INIT(ACC_DEVICE_NVIDIA)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in), optional :: KOUT
integer(kind=JPIM), intent(in), optional :: KERR
integer(kind=JPIM), intent(in), optional :: KPRINTLEV
integer(kind=JPIM), intent(in), optional :: KMAX_RESOL
integer(kind=JPIM), intent(in), optional :: KPROMATR
integer(kind=JPIM), intent(in), optional :: KPRGPNS
integer(kind=JPIM), intent(in), optional :: KPRGPEW
integer(kind=JPIM), intent(in), optional :: KPRTRW
integer(kind=JPIM), intent(in), optional :: KCOMBFLEN
logical, intent(in), optional :: LDMPOFF
logical, intent(in), optional :: LDSYNC_TRANS
integer(kind=JPIM), intent(in), optional :: KTRANS_SYNC_LEVEL
logical, intent(in), optional :: LDEQ_REGIONS
integer(kind=JPIM), intent(out), optional :: K_REGIONS_NS
integer(kind=JPIM), intent(out), optional :: K_REGIONS_EW
integer(kind=JPIM), intent(out), optional :: K_REGIONS(:)
real(kind=JPRD), intent(in), optional :: PRAD
logical, intent(in), optional :: LDALLOPERM
integer(kind=JPIM), intent(in), optional :: KOPT_MEMORY_TR

Calls

proc~~setup_trans0~~CallsGraph proc~setup_trans0 SETUP_TRANS0 acc_init acc_init proc~setup_trans0->acc_init acc_set_device_num acc_set_device_num proc~setup_trans0->acc_set_device_num ec_getenv ec_getenv proc~setup_trans0->ec_getenv ectrans_git_sha1 ectrans_git_sha1 proc~setup_trans0->ectrans_git_sha1 ectrans_version_str ectrans_version_str proc~setup_trans0->ectrans_version_str mpl_myrank mpl_myrank proc~setup_trans0->mpl_myrank proc~abort_trans ABORT_TRANS proc~setup_trans0->proc~abort_trans proc~sump_trans0 SUMP_TRANS0 proc~setup_trans0->proc~sump_trans0 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~sump_trans0->mpl_myrank proc~sump_trans0->proc~abort_trans mpl_groups_create mpl_groups_create proc~sump_trans0->mpl_groups_create mpl_nproc mpl_nproc proc~sump_trans0->mpl_nproc proc~eq_regions eq_regions proc~sump_trans0->proc~eq_regions proc~pe2set PE2SET proc~sump_trans0->proc~pe2set abor1 abor1 proc~eq_regions->abor1 float float proc~eq_regions->float proc~pe2set->proc~abort_trans