EASRE1B Subroutine

public subroutine EASRE1B(KFC, KM, KMLOC, PIA)

Uses

  • proc~~easre1b~2~~UsesGraph proc~easre1b~2 EASRE1B PARKIND1 PARKIND1 proc~easre1b~2->PARKIND1 YOMHOOK YOMHOOK proc~easre1b~2->YOMHOOK module~tpm_dim TPM_DIM proc~easre1b~2->module~tpm_dim module~tpm_distr TPM_DISTR proc~easre1b~2->module~tpm_distr module~tpm_trans~2 TPM_TRANS proc~easre1b~2->module~tpm_trans~2 module~tpmald_dim TPMALD_DIM proc~easre1b~2->module~tpmald_dim EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~tpm_trans~2->module~growing_allocator_mod module~parkind_ectrans PARKIND_ECTRANS module~tpm_trans~2->module~parkind_ectrans module~tpmald_dim->EC_PARKIND iso_c_binding iso_c_binding module~growing_allocator_mod->iso_c_binding module~parkind_ectrans->PARKIND1

*** ASRE1B - Recombine antisymmetric and symmetric parts

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

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KFC
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
real(kind=JPRB), intent(in) :: PIA(RALD%NDGLSUR+R%NNOEXTZG,KFC)

Calls

proc~~easre1b~2~~CallsGraph proc~easre1b~2 EASRE1B dr_hook dr_hook proc~easre1b~2->dr_hook foubuf_in foubuf_in proc~easre1b~2->foubuf_in