INTERPOL_DECOMP_MOD Module


Uses

    • EC_PARKIND
  • module~~interpol_decomp_mod~~UsesGraph module~interpol_decomp_mod INTERPOL_DECOMP_MOD EC_PARKIND EC_PARKIND module~interpol_decomp_mod->EC_PARKIND

Used by

  • module~~interpol_decomp_mod~~UsedByGraph module~interpol_decomp_mod INTERPOL_DECOMP_MOD module~butterfly_alg_mod BUTTERFLY_ALG_MOD module~butterfly_alg_mod->module~interpol_decomp_mod module~tpm_flt TPM_FLT module~tpm_flt->module~butterfly_alg_mod proc~ledir LEDIR proc~ledir->module~butterfly_alg_mod proc~ledir->module~tpm_flt proc~ledirad LEDIRAD proc~ledirad->module~butterfly_alg_mod proc~ledirad->module~tpm_flt proc~leinv LEINV proc~leinv->module~butterfly_alg_mod proc~leinv->module~tpm_flt proc~leinvad LEINVAD proc~leinvad->module~butterfly_alg_mod proc~leinvad->module~tpm_flt proc~read_legpol READ_LEGPOL proc~read_legpol->module~butterfly_alg_mod proc~read_legpol->module~tpm_flt proc~suleg SULEG proc~suleg->module~butterfly_alg_mod proc~suleg->module~tpm_flt proc~write_legpol WRITE_LEGPOL proc~write_legpol->module~butterfly_alg_mod proc~write_legpol->module~tpm_flt proc~cdmap CDMAP proc~cdmap->module~tpm_flt proc~cdmap~2 CDMAP proc~cdmap~2->module~tpm_flt proc~dealloc_resol DEALLOC_RESOL proc~dealloc_resol->module~tpm_flt proc~dealloc_resol~2 DEALLOC_RESOL proc~dealloc_resol~2->module~tpm_flt proc~dir_trans DIR_TRANS proc~dir_trans->module~tpm_flt proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->module~tpm_flt proc~edealloc_resol EDEALLOC_RESOL proc~edealloc_resol->module~tpm_flt proc~esetup_trans ESETUP_TRANS proc~esetup_trans->module~tpm_flt proc~etrans_end ETRANS_END proc~etrans_end->module~tpm_flt proc~fsc FSC proc~fsc->module~tpm_flt proc~ftinv_ctl FTINV_CTL proc~ftinv_ctl->module~tpm_flt proc~inv_trans INV_TRANS proc~inv_trans->module~tpm_flt proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->module~tpm_flt proc~ltdir LTDIR proc~ltdir->module~tpm_flt proc~ltinv LTINV proc~ltinv->module~tpm_flt proc~ltinv_ctl LTINV_CTL proc~ltinv_ctl->module~tpm_flt proc~read_legpol~2 READ_LEGPOL proc~read_legpol~2->module~tpm_flt proc~set_resol SET_RESOL proc~set_resol->module~tpm_flt proc~set_resol~2 SET_RESOL proc~set_resol~2->module~tpm_flt proc~setup_trans SETUP_TRANS proc~setup_trans->module~tpm_flt proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->module~tpm_flt proc~suleg~2 SULEG proc~suleg~2->module~tpm_flt proc~trans_end TRANS_END proc~trans_end->module~tpm_flt proc~trans_end~2 TRANS_END proc~trans_end~2->module~tpm_flt proc~trans_inq TRANS_INQ proc~trans_inq->module~tpm_flt proc~trans_inq~2 TRANS_INQ proc~trans_inq~2->module~tpm_flt proc~trans_pnm TRANS_PNM proc~trans_pnm->module~tpm_flt proc~trans_pnm~2 TRANS_PNM proc~trans_pnm~2->module~tpm_flt proc~write_legpol~2 WRITE_LEGPOL proc~write_legpol~2->module~tpm_flt

Subroutines

public subroutine COMPUTE_ID(PEPS, KM, KN, PMAT, KRANK, KBCLIST, PNONIM)

$IF(KRANK < KN) THEN $ PRINT *,'MAXVAL PNONIM ',KM,KM,KRANK,MAXVAL( PNONIM(1:KRANK,1:KN-KRANK)) $ENDIF

Arguments

Type IntentOptional Attributes Name
real(kind=JPRD), intent(in) :: PEPS
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KN
real(kind=JPRD), intent(in) :: PMAT(:,:)
integer(kind=JPIM), intent(out) :: KRANK
integer(kind=JPIM), intent(out) :: KBCLIST(:)
real(kind=JPRD), intent(out) :: PNONIM(:,:)

public subroutine ALG541(PEPS, KM, KN, PA, KRANK, KLIST)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRD), intent(in) :: PEPS
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KN
real(kind=JPRD), intent(inout) :: PA(:,:)
integer(kind=JPIM), intent(out) :: KRANK
integer(kind=JPIM), intent(out) :: KLIST(:)

public subroutine ALG511(PEPS, KSIZE, PX, PV, PBETA)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRD), intent(in) :: PEPS
integer(kind=JPIM), intent(in) :: KSIZE
real(kind=JPRD), intent(in) :: PX(:)
real(kind=JPRD), intent(out) :: PV(:)
real(kind=JPRD), intent(out) :: PBETA