LEDIR Subroutine

public subroutine LEDIR(KM, KMLOC, KFC, KIFC, KSL, KDGLU, KLED2, PAIA, PSIA, POA1, PW)

Uses

  • proc~~ledir~~UsesGraph proc~ledir LEDIR PARKIND1 PARKIND1 proc~ledir->PARKIND1 YOMHOOK YOMHOOK proc~ledir->YOMHOOK module~butterfly_alg_mod BUTTERFLY_ALG_MOD proc~ledir->module~butterfly_alg_mod module~ectrans_blas_mod ECTRANS_BLAS_MOD proc~ledir->module~ectrans_blas_mod module~tpm_dim TPM_DIM proc~ledir->module~tpm_dim module~tpm_flt~2 TPM_FLT proc~ledir->module~tpm_flt~2 module~butterfly_alg_mod->PARKIND1 module~butterfly_alg_mod->module~ectrans_blas_mod module~interpol_decomp_mod INTERPOL_DECOMP_MOD module~butterfly_alg_mod->module~interpol_decomp_mod module~sharedmem_mod SHAREDMEM_MOD module~butterfly_alg_mod->module~sharedmem_mod EC_PARKIND EC_PARKIND module~ectrans_blas_mod->EC_PARKIND module~tpm_dim->EC_PARKIND module~parkind_ectrans PARKIND_ECTRANS module~tpm_flt~2->module~parkind_ectrans module~seefmm_mix~2 seefmm_mix module~tpm_flt~2->module~seefmm_mix~2 module~interpol_decomp_mod->EC_PARKIND module~parkind_ectrans->PARKIND1 ecsort_mix ecsort_mix module~seefmm_mix~2->ecsort_mix module~wts500_mod WTS500_MOD module~seefmm_mix~2->module~wts500_mod parkind1 parkind1 module~seefmm_mix~2->parkind1 iso_c_binding iso_c_binding module~sharedmem_mod->iso_c_binding

*** LEDIR - Direct Legendre transform.

  • Interface. ---------- CALL LEDIR(...)

    1. ANTISYMMETRIC PART.

    1.3 SYMMETRIC PART.

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
integer(kind=JPIM), intent(in) :: KFC
integer(kind=JPIM), intent(in) :: KIFC
integer(kind=JPIM), intent(in) :: KSL
integer(kind=JPIM), intent(in) :: KDGLU
integer(kind=JPIM), intent(in) :: KLED2
real(kind=JPRB), intent(in) :: PAIA(:,:)
real(kind=JPRB), intent(in) :: PSIA(:,:)
real(kind=JPRB), intent(out) :: POA1(:,:)
real(kind=JPRD), intent(in) :: PW(KDGLU+KSL-1)

Calls

proc~~ledir~~CallsGraph proc~ledir LEDIR dr_hook dr_hook proc~ledir->dr_hook interface~gemm GEMM proc~ledir->interface~gemm proc~mult_butm MULT_BUTM proc~ledir->proc~mult_butm zb_d zb_d proc~ledir->zb_d zca_d zca_d proc~ledir->zca_d zcs_d zcs_d proc~ledir->zcs_d zrpnma zrpnma proc~ledir->zrpnma zrpnms zrpnms proc~ledir->zrpnms proc~mult_butm->interface~gemm abor1 abor1 proc~mult_butm->abor1

Called by

proc~~ledir~~CalledByGraph proc~ledir LEDIR proc~ltdir LTDIR proc~ltdir->proc~ledir proc~ltdir~2 LTDIR proc~ltdir~2->proc~ledir proc~ltinvad LTINVAD proc~ltinvad->proc~ledir proc~dir_trans_ctl~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~ltdir proc~inv_trans_ctlad~2 INV_TRANS_CTLAD proc~inv_trans_ctlad~2->proc~ltinvad proc~ltdir_ctl LTDIR_CTL proc~ltdir_ctl->proc~ltdir proc~ltinv_ctlad LTINV_CTLAD proc~ltinv_ctlad->proc~ltinvad proc~dir_trans_ctl DIR_TRANS_CTL proc~dir_trans_ctl->proc~ltdir_ctl proc~inv_trans_ctlad INV_TRANS_CTLAD proc~inv_trans_ctlad->proc~ltinv_ctlad proc~dir_trans DIR_TRANS proc~dir_trans->proc~dir_trans_ctl proc~dir_trans~2 DIR_TRANS proc~dir_trans~2->proc~dir_trans_ctl proc~inv_transad INV_TRANSAD proc~inv_transad->proc~inv_trans_ctlad proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->proc~inv_trans_ctlad