ASRE1BAD Subroutine

public subroutine ASRE1BAD(KFIELD, KM, KMLOC, PAOA, PSOA)

Uses

  • proc~~asre1bad~~UsesGraph proc~asre1bad ASRE1BAD PARKIND1 PARKIND1 proc~asre1bad->PARKIND1 module~tpm_dim TPM_DIM proc~asre1bad->module~tpm_dim module~tpm_distr TPM_DISTR proc~asre1bad->module~tpm_distr module~tpm_geometry~2 TPM_GEOMETRY proc~asre1bad->module~tpm_geometry~2 module~tpm_trans~2 TPM_TRANS proc~asre1bad->module~tpm_trans~2 module~tpm_dim->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~parkind_ectrans PARKIND_ECTRANS module~tpm_geometry~2->module~parkind_ectrans iso_c_binding iso_c_binding module~tpm_trans~2->iso_c_binding module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~tpm_trans~2->module~growing_allocator_mod module~tpm_trans~2->module~parkind_ectrans module~growing_allocator_mod->iso_c_binding module~parkind_ectrans->PARKIND1

*** ASRE1BAD - Recombine antisymmetric and symmetric parts - adjoint

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

    1.2 RECOMBINE

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KFIELD
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
real(kind=JPRB), intent(out) :: PAOA(:,:)
real(kind=JPRB), intent(out) :: PSOA(:,:)

Called by

proc~~asre1bad~~CalledByGraph proc~asre1bad ASRE1BAD proc~asre1ad ASRE1AD proc~asre1ad->proc~asre1bad proc~ltinvad LTINVAD proc~ltinvad->proc~asre1bad proc~ltinv_ctlad LTINV_CTLAD proc~ltinv_ctlad->proc~ltinvad proc~inv_trans_ctlad INV_TRANS_CTLAD proc~inv_trans_ctlad->proc~ltinv_ctlad proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->proc~inv_trans_ctlad