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


Calls

proc~~findindex_2d~~CallsGraph proc~findindex_2d findindex_2d proc~get_stderr get_stderr proc~findindex_2d->proc~get_stderr

Called by

proc~~findindex_2d~~CalledByGraph proc~findindex_2d findindex_2d proc~write_vtk_mesh write_vtk_mesh proc~write_vtk_mesh->proc~findindex_2d program~test_diffusion test_diffusion program~test_diffusion->proc~write_vtk_mesh