PREPSNM Subroutine

public subroutine PREPSNM(KM, KMLOC, PEPSNM)

Uses

  • proc~~prepsnm~2~~UsesGraph proc~prepsnm~2 PREPSNM PARKIND1 PARKIND1 proc~prepsnm~2->PARKIND1 module~tpm_dim TPM_DIM proc~prepsnm~2->module~tpm_dim module~tpm_distr TPM_DISTR proc~prepsnm~2->module~tpm_distr module~tpm_fields~2 TPM_FIELDS proc~prepsnm~2->module~tpm_fields~2 module~tpm_dim->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND 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~parkind_ectrans->PARKIND1

*** PREPSNM - Prepare REPSNM for wavenumber KM

  • Interface. ---------- CALL PREPSNM(...)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
real(kind=JPRB), intent(out) :: PEPSNM(0:R%NTMAX+2)