Go to the source code of this file.
Functions/Subroutines | |
subroutine | GET_ADJ_MES_CART (KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM) |
subroutine GET_ADJ_MES_CART | ( | INTEGER, intent(in) | KGRID_PAR, |
INTEGER, intent(in) | KL, | ||
REAL, dimension(kgrid_par), intent(in) | PGRID_PAR, | ||
INTEGER, dimension(kl), intent(out) | KLEFT, | ||
INTEGER, dimension(kl), intent(out) | KRIGHT, | ||
INTEGER, dimension(kl), intent(out) | KTOP, | ||
INTEGER, dimension(kl), intent(out) | KBOTTOM | ||
) |