fdoc_urls.f90 › fdoc_urls

functiontop_levelelementalprivate

elemental logical function top_level(kind)

True if a link to kind can name it from anywhere in the project.

Arguments

Name	Type	Intent	Attributes	Description
kind	integer	in		the kind of entity

Result

Name	Type	Attributes	Description
top_level	logical

Source

Show the code

elemental logical function top_level(kind)
    integer, intent(in) :: kind     !! the kind of entity

    select case (kind)
    case (E_MODULE, E_SUBMODULE, E_TYPE, E_SUBROUTINE, E_FUNCTION, E_INTERFACE, E_PROGRAM, E_BLOCKDATA, E_FILE)
        top_level = .true.
    case default
        top_level = .false.
    end select
end function top_level

Graphs

Called by