node_number Function

pure function node_number(i, j)

returns the index of these coordinates in the list of nodes (0 if it is not a node)

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: i
integer(kind=ip), intent(in) :: j

Return Value integer(kind=ip)


Called by

proc~~node_number~~CalledByGraph proc~node_number problem_23::node_number proc~build_graph problem_23::build_graph proc~build_graph->proc~node_number proc~build_graph->proc~build_graph proc~go~5 problem_23::go proc~go~5->proc~build_graph program~problem_23 problem_23 program~problem_23->proc~go~5

Source Code

    pure integer(ip) function node_number(i,j)
        !! returns the index of these coordinates in
        !! the list of nodes (0 if it is not a node)
        integer(ip),intent(in) :: i,j
        integer(ip),dimension(1) :: iloc
        iloc = findloc(inodes==i .and. jnodes==j, .true.)
        node_number = iloc(1)
    end function node_number