CDMAP Subroutine

public subroutine CDMAP(KM, KMLOC, KSL, KSLO, PEPSNM, KDIR, KDGNH, KDGNHD, KFIELDS, PCOEFA, PCOEFS)

Uses

  • proc~~cdmap~2~~UsesGraph proc~cdmap~2 CDMAP MPL_MODULE MPL_MODULE proc~cdmap~2->MPL_MODULE YOMHOOK YOMHOOK proc~cdmap~2->YOMHOOK module~parkind_ectrans PARKIND_ECTRANS proc~cdmap~2->module~parkind_ectrans module~seefmm_mix seefmm_mix proc~cdmap~2->module~seefmm_mix module~tpm_distr TPM_DISTR proc~cdmap~2->module~tpm_distr module~tpm_flt TPM_FLT proc~cdmap~2->module~tpm_flt PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 ecsort_mix ecsort_mix module~seefmm_mix->ecsort_mix module~wts500_mod WTS500_MOD module~seefmm_mix->module~wts500_mod parkind1 parkind1 module~seefmm_mix->parkind1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_flt->module~seefmm_mix module~tpm_flt->PARKIND1 module~butterfly_alg_mod BUTTERFLY_ALG_MOD module~tpm_flt->module~butterfly_alg_mod module~butterfly_alg_mod->PARKIND1 module~ectrans_blas_mod ECTRANS_BLAS_MOD 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 module~ectrans_blas_mod->EC_PARKIND module~interpol_decomp_mod->EC_PARKIND iso_c_binding iso_c_binding module~sharedmem_mod->iso_c_binding

*** CDMAP - REMAP ROOTS

 Purpose.
 --------

remap from one set of roots to another using Christoffel-Darboux formula, see Chien + Alpert, 1997.

  • Interface. ---------- CALL *CDMAP(...)

    1. PERFORM LEGENDRE TRANFORM. --------------------------

!!! fourier buffer setup in output latitudes, may not work if different from input !!!! !!! fourier buffer setup in input data latitudes, may not work if different from output !!!!

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
integer(kind=JPIM), intent(in) :: KSL
integer(kind=JPIM), intent(in) :: KSLO
real(kind=JPRBT), intent(in) :: PEPSNM
integer(kind=JPIM), intent(in) :: KDIR
integer(kind=JPIM), intent(in) :: KDGNH
integer(kind=JPIM), intent(in) :: KDGNHD
integer(kind=JPIM), intent(in) :: KFIELDS
real(kind=JPRBT), intent(inout) :: PCOEFA(:,:)
real(kind=JPRBT), intent(inout) :: PCOEFS(:,:)

Calls

proc~~cdmap~2~~CallsGraph proc~cdmap~2 CDMAP dr_hook dr_hook proc~cdmap~2->dr_hook mpl_abort mpl_abort proc~cdmap~2->mpl_abort proc~seefmm_mulm seefmm_mulm proc~cdmap~2->proc~seefmm_mulm