findindex_2d Subroutine

public subroutine findindex_2d(lpi, lpf, li, lj, i, j, lg)

Searches in grid lists (li, lj) if it contains point (i, j) and returns its index in lg. If index cannot be found, returns lg=0 Note: (li, lj) shall be uniqued tuple

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: lpi

Start index of lists li and lj

integer, intent(in) :: lpf

Final index of lists li and lj

integer, intent(in), dimension(lpi:lpf) :: li

Grid list li

integer, intent(in), dimension(lpi:lpf) :: lj

Grid list lj

integer, intent(in) :: i

Integer coordinate i that is looked for in li

integer, intent(in) :: j

Integer coordinate j that is looked for in lj

integer, intent(out) :: lg

If present (i,j)=(li(lg), lj(lg)), if not present lg=0 is returned