functionstarts_nameelementalprivate
elemental logical function starts_name(ch)
True if ch can start a name.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| ch | character(len=1) | in | the character |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| starts_name | logical |
Source
Show the code
elemental logical function starts_name(ch)
character, intent(in) :: ch !! the character
starts_name = (ch >= 'a' .and. ch <= 'z') .or. (ch >= 'A' .and. ch <= 'Z') .or. ch == '_'
end function starts_name