functionfind_moduleprivate
integer function find_module(p, name)
The position in p%modules of the module named name, or 0.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| p | type(project_t) | in | the project | |
| name | character(len=*) | in | the name, in lowercase |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| find_module | integer |
Source
Show the code
integer function find_module(p, name)
type(project_t), intent(in) :: p !! the project
character(len=*), intent(in) :: name !! the name, in lowercase
integer :: k
find_module = 0
do k = 1, size(p%modules)
if (lowercase(p%list%box(p%modules(k))%e%name) == name) then
find_module = k
return
end if
end do
end function find_module