comb_xy Subroutine

public recursive subroutine comb_xy(kx, px, ky, py, kxy, pxy, kindex)

$do jxy=1,kxy $ kindex(irank(jxy))=jxy $enddo

Arguments

Type IntentOptional Attributes Name
integer(kind=jpim), intent(in) :: kx
real(kind=jprd), intent(in) :: px(:)
integer(kind=jpim), intent(in) :: ky
real(kind=JPRBT), intent(in) :: py(:)
integer(kind=jpim), intent(in) :: kxy
real(kind=JPRBT), intent(out) :: pxy(:)
integer(kind=jpim), intent(out) :: kindex(:)

Calls

proc~~comb_xy~~CallsGraph proc~comb_xy comb_xy keysort keysort proc~comb_xy->keysort

Called by

proc~~comb_xy~~CalledByGraph proc~comb_xy comb_xy proc~setup_seefmm setup_seefmm proc~setup_seefmm->proc~comb_xy proc~suleg SULEG proc~suleg->proc~setup_seefmm proc~suleg~2 SULEG proc~suleg~2->proc~setup_seefmm proc~setup_trans SETUP_TRANS proc~setup_trans->proc~suleg proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->proc~suleg