LEDIRAD Subroutine

public subroutine LEDIRAD(KM, KMLOC, KFC, KIFC, KDGLU, KLED2, PAIA, PSIA, POA1)

Uses

  • proc~~ledirad~~UsesGraph proc~ledirad LEDIRAD PARKIND1 PARKIND1 proc~ledirad->PARKIND1 YOMHOOK YOMHOOK proc~ledirad->YOMHOOK module~butterfly_alg_mod BUTTERFLY_ALG_MOD proc~ledirad->module~butterfly_alg_mod module~ectrans_blas_mod ECTRANS_BLAS_MOD proc~ledirad->module~ectrans_blas_mod module~tpm_dim TPM_DIM proc~ledirad->module~tpm_dim module~tpm_fields~2 TPM_FIELDS proc~ledirad->module~tpm_fields~2 module~tpm_flt~2 TPM_FLT proc~ledirad->module~tpm_flt~2 module~tpm_geometry~2 TPM_GEOMETRY proc~ledirad->module~tpm_geometry~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->PARKIND1 iso_c_binding iso_c_binding module~tpm_fields~2->iso_c_binding module~parkind_ectrans PARKIND_ECTRANS module~tpm_fields~2->module~parkind_ectrans module~tpm_flt~2->module~parkind_ectrans module~seefmm_mix~2 seefmm_mix module~tpm_flt~2->module~seefmm_mix~2 module~tpm_geometry~2->module~parkind_ectrans module~interpol_decomp_mod->EC_PARKIND module~parkind_ectrans->PARKIND1 module~seefmm_mix~2->module~parkind_ectrans ecsort_mix ecsort_mix module~seefmm_mix~2->ecsort_mix module~wts500_mod~2 WTS500_MOD module~seefmm_mix~2->module~wts500_mod~2 module~sharedmem_mod->iso_c_binding

*** LEDIRAD - Direct Legendre transform.

  • Interface. ---------- CALL LEDIRAD(...)

    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) :: KDGLU
integer(kind=JPIM), intent(in) :: KLED2
real(kind=JPRB), intent(out) :: PAIA(:,:)
real(kind=JPRB), intent(out) :: PSIA(:,:)
real(kind=JPRB), intent(in) :: POA1(:,:)

Calls

proc~~ledirad~~CallsGraph proc~ledirad LEDIRAD dr_hook dr_hook proc~ledirad->dr_hook interface~gemm GEMM proc~ledirad->interface~gemm proc~mult_butm MULT_BUTM proc~ledirad->proc~mult_butm proc~mult_butm->interface~gemm abor1 abor1 proc~mult_butm->abor1

Called by

proc~~ledirad~~CalledByGraph proc~ledirad LEDIRAD proc~ltdirad LTDIRAD proc~ltdirad->proc~ledirad proc~ltdir_ctlad LTDIR_CTLAD proc~ltdir_ctlad->proc~ltdirad proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_trans_ctlad->proc~ltdir_ctlad proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->proc~dir_trans_ctlad