node_index Function

pure function node_index(node)

find the node number for this name

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: node

Return Value integer


Called by

proc~~node_index~~CalledByGraph proc~node_index problem_25::node_index program~problem_25 problem_25 program~problem_25->proc~node_index

Source Code

    pure integer function node_index(node)
        !! find the node number for this name
        character(len=*),intent(in) :: node
        integer,dimension(1) :: idx
        idx = findloc(nodes,node)
        node_index = idx(1)
    end function node_index