functionfind_inpureprivate
pure integer function find_in(symbols, name)
The position of name in symbols, or 0.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| symbols | type(symbol_list_t) | in | the names | |
| name | character(len=*) | in | the name, in lowercase |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| find_in | integer |
Calls
Source
Show the code
pure integer function find_in(symbols, name)
type(symbol_list_t), intent(in) :: symbols !! the names
character(len=*), intent(in) :: name !! the name, in lowercase
integer :: at
find_in = 0
at = index_find(symbols%index, name)
if (at > 0) find_in = symbols%s(at)%id
end function find_in