reset_graph Module Subroutine

  recursive module subroutine reset_graph(this)
    !! Reset the gradient graph of this array
    implicit none
    class(array_type), intent(inout) :: this

    integer, save :: local_visit_id = 0

    diffstruc__visit_counter = diffstruc__visit_counter + 1
    local_visit_id = diffstruc__visit_counter
    call reset_graph_inner(this, local_visit_id)
  end subroutine reset_graph