init_internal_vars Subroutine

private subroutine init_internal_vars(me)

Initialize the internal private variables used for graph traversal.

Type Bound

dag

Arguments

Type IntentOptional Attributes Name
class(dag), intent(inout) :: me

Called by

proc~~init_internal_vars~~CalledByGraph proc~init_internal_vars dag_module::dag%init_internal_vars proc~dag_toposort dag_module::dag%dag_toposort proc~dag_toposort->proc~init_internal_vars proc~dag_traverse dag_module::dag%dag_traverse proc~dag_traverse->proc~init_internal_vars

Source Code

    subroutine init_internal_vars(me)

    class(dag),intent(inout) :: me

    integer(ip) :: i !! counter

    do i = 1, me%n
        me%vertices(i)%marked = .false.
        me%vertices(i)%checking = .false.
    end do

    end subroutine init_internal_vars