DIR_TRANSAD Subroutine

subroutine DIR_TRANSAD(PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KPROMA, KVSETUV, KVSETSC, KRESOL, KVSETSC3A, KVSETSC3B, KVSETSC2, PGP, PGPUV, PGP3A, PGP3B, PGP2)

Uses

  • proc~~dir_transad~2~~UsesGraph proc~dir_transad~2 DIR_TRANSAD PARKIND1 PARKIND1 proc~dir_transad~2->PARKIND1 YOMHOOK YOMHOOK proc~dir_transad~2->YOMHOOK module~abort_trans_mod ABORT_TRANS_MOD proc~dir_transad~2->module~abort_trans_mod module~dir_trans_ctlad_mod DIR_TRANS_CTLAD_MOD proc~dir_transad~2->module~dir_trans_ctlad_mod module~set_resol_mod SET_RESOL_MOD proc~dir_transad~2->module~set_resol_mod module~tpm_distr TPM_DISTR proc~dir_transad~2->module~tpm_distr module~tpm_gen~2 TPM_GEN proc~dir_transad~2->module~tpm_gen~2 module~tpm_trans~2 TPM_TRANS proc~dir_transad~2->module~tpm_trans~2 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~parkind_ectrans PARKIND_ECTRANS module~tpm_gen~2->module~parkind_ectrans iso_c_binding iso_c_binding module~tpm_trans~2->iso_c_binding module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~tpm_trans~2->module~growing_allocator_mod module~tpm_trans~2->module~parkind_ectrans module~growing_allocator_mod->iso_c_binding module~parkind_ectrans->PARKIND1

*** DIR_TRANSAD - Direct spectral transform - adjoint.

  • Interface. ---------- CALL DIR_TRANSAD(...)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRB), intent(inout), optional :: PSPVOR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPDIV(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSCALAR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC3A(:,:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC3B(:,:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC2(:,:)
integer(kind=JPIM), intent(in), optional :: KPROMA
integer(kind=JPIM), intent(in), optional :: KVSETUV(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC(:)
integer(kind=JPIM), intent(in), optional :: KRESOL
integer(kind=JPIM), intent(in), optional :: KVSETSC3A(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC3B(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC2(:)
real(kind=JPRB), intent(out), optional :: PGP(:,:,:)
real(kind=JPRB), intent(out), optional :: PGPUV(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP3A(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP3B(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP2(:,:,:)

Calls

proc~~dir_transad~2~~CallsGraph proc~dir_transad~2 DIR_TRANSAD dr_hook dr_hook proc~dir_transad~2->dr_hook gstats gstats proc~dir_transad~2->gstats proc~abort_trans ABORT_TRANS proc~dir_transad~2->proc~abort_trans proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_transad~2->proc~dir_trans_ctlad proc~set_resol SET_RESOL proc~dir_transad~2->proc~set_resol 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~field_split FIELD_SPLIT proc~dir_trans_ctlad->proc~field_split proc~ftdir_ctlad FTDIR_CTLAD proc~dir_trans_ctlad->proc~ftdir_ctlad proc~ltdir_ctlad LTDIR_CTLAD proc~dir_trans_ctlad->proc~ltdir_ctlad proc~shuffle SHUFFLE proc~dir_trans_ctlad->proc~shuffle proc~set_resol->proc~abort_trans proc~ftdir_ctlad->gstats proc~fourier_outad FOURIER_OUTAD proc~ftdir_ctlad->proc~fourier_outad proc~ftdirad FTDIRAD proc~ftdir_ctlad->proc~ftdirad proc~trltog TRLTOG proc~ftdir_ctlad->proc~trltog proc~ltdir_ctlad->gstats proc~ltdirad LTDIRAD proc~ltdir_ctlad->proc~ltdirad proc~trmtol TRMTOL proc~ltdir_ctlad->proc~trmtol proc~exec_fftw EXEC_FFTW proc~ftdirad->proc~exec_fftw proc~ldfou2ad LDFOU2AD proc~ltdirad->proc~ldfou2ad proc~ledirad LEDIRAD proc~ltdirad->proc~ledirad proc~prepsnm PREPSNM proc~ltdirad->proc~prepsnm proc~prfi2ad PRFI2AD proc~ltdirad->proc~prfi2ad proc~updspad UPDSPAD proc~ltdirad->proc~updspad proc~uvtvdad UVTVDAD proc~ltdirad->proc~uvtvdad proc~trltog->dr_hook proc~trltog->proc~abort_trans interface~assign_ptr ASSIGN_PTR proc~trltog->interface~assign_ptr interface~ext_acc_pass ext_acc_pass proc~trltog->interface~ext_acc_pass mpi_irecv mpi_irecv proc~trltog->mpi_irecv mpi_isend mpi_isend proc~trltog->mpi_isend mpl_barrier mpl_barrier proc~trltog->mpl_barrier mpl_comm_oml mpl_comm_oml proc~trltog->mpl_comm_oml mpl_wait mpl_wait proc~trltog->mpl_wait oml_my_thread oml_my_thread proc~trltog->oml_my_thread proc~ext_acc_create ext_acc_create proc~trltog->proc~ext_acc_create proc~ext_acc_delete ext_acc_delete proc~trltog->proc~ext_acc_delete proc~get_allocation GET_ALLOCATION proc~trltog->proc~get_allocation proc~gstats_nvtx GSTATS_NVTX proc~trltog->proc~gstats_nvtx proc~pe2set PE2SET proc~trltog->proc~pe2set proc~trmtol->dr_hook proc~trmtol->interface~assign_ptr mpi_alltoallv mpi_alltoallv proc~trmtol->mpi_alltoallv proc~trmtol->mpl_barrier mpl_myrank mpl_myrank proc~trmtol->mpl_myrank proc~trmtol->proc~get_allocation proc~trmtol->proc~gstats_nvtx proc~exec_fftw->dr_hook abor1 abor1 proc~exec_fftw->abor1 dfftw_execute_dft_c2r dfftw_execute_dft_c2r proc~exec_fftw->dfftw_execute_dft_c2r dfftw_execute_dft_r2c dfftw_execute_dft_r2c proc~exec_fftw->dfftw_execute_dft_r2c fftw_alloc_complex fftw_alloc_complex proc~exec_fftw->fftw_alloc_complex fftw_free fftw_free proc~exec_fftw->fftw_free fftwf_alloc_complex fftwf_alloc_complex proc~exec_fftw->fftwf_alloc_complex fftwf_free fftwf_free proc~exec_fftw->fftwf_free proc~create_plan_fftw CREATE_PLAN_FFTW proc~exec_fftw->proc~create_plan_fftw sfftw_execute_dft_c2r sfftw_execute_dft_c2r proc~exec_fftw->sfftw_execute_dft_c2r sfftw_execute_dft_r2c sfftw_execute_dft_r2c proc~exec_fftw->sfftw_execute_dft_r2c acc_create acc_create proc~ext_acc_create->acc_create acc_delete acc_delete proc~ext_acc_delete->acc_delete proc~get_allocation->proc~abort_trans proc~ledirad->dr_hook interface~gemm GEMM proc~ledirad->interface~gemm proc~mult_butm MULT_BUTM proc~ledirad->proc~mult_butm proc~pe2set->proc~abort_trans proc~prfi2bad PRFI2BAD proc~prfi2ad->proc~prfi2bad proc~updspbad UPDSPBAD proc~updspad->proc~updspbad proc~create_plan_fftw->dr_hook proc~create_plan_fftw->abor1 proc~create_plan_fftw->fftw_alloc_complex proc~create_plan_fftw->fftw_free proc~create_plan_fftw->fftwf_alloc_complex proc~create_plan_fftw->fftwf_free dfftw_destroy_plan dfftw_destroy_plan proc~create_plan_fftw->dfftw_destroy_plan dfftw_plan_many_dft_c2r dfftw_plan_many_dft_c2r proc~create_plan_fftw->dfftw_plan_many_dft_c2r dfftw_plan_many_dft_r2c dfftw_plan_many_dft_r2c proc~create_plan_fftw->dfftw_plan_many_dft_r2c sfftw_destroy_plan sfftw_destroy_plan proc~create_plan_fftw->sfftw_destroy_plan sfftw_plan_many_dft_c2r sfftw_plan_many_dft_c2r proc~create_plan_fftw->sfftw_plan_many_dft_c2r sfftw_plan_many_dft_r2c sfftw_plan_many_dft_r2c proc~create_plan_fftw->sfftw_plan_many_dft_r2c proc~mult_butm->abor1 proc~mult_butm->interface~gemm