functionis_digitelemental
elemental logical function is_digit(c)
True if c is a digit.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| c | character(len=1) | in | the character |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| is_digit | logical |
Source
Show the code
elemental logical function is_digit(c)
character, intent(in) :: c !! the character
is_digit = c >= '0' .and. c <= '9'
end function is_digit