fortran90实现常用深度优先查询的函数

以下是一个使用深度优先搜索算法实现的 Fortran90 函数：

recursive subroutine dfs(graph, visited, node)
    implicit none
    logical, dimension(:,:), intent(in) :: graph    ! 邻接矩阵表示的图
    logical, dimension(:), intent(inout) :: visited ! 节点是否已访问的标记
    integer, intent(in) :: node                     ! 当前节点

    visited(node) = .TRUE.  ! 标记当前节点已访问

    ! 遍历当前节点的邻居节点
    do i = 1, size(graph, 1)
        if (graph(node, i) .and. (.not. visited(i))) then
            call dfs(graph, visited, i)  ! 递归地访问邻居节点
        end if
    end do
end subroutine dfs

这个函数使用深度优先搜索算法，从给定的起始节点开始递归地访问其邻居节点。在访问每个节点时，我们将其标记为已访问，然后递归地访问其邻居节点。如果邻居节点未被访问，则递归访问其邻居节点。这个过程一直进行，直到所有节点都被访问为止。

你可以在程序中调用这个函数并传入一个邻接矩阵表示的图、一个节点是否已访问的标记和起始节点，它将遍历整个图并将访问过的节点标记为已访问。