functionlower_charelemental
elemental character(len=1) function lower_char(c) result(l)
c in lowercase.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| c | character(len=1) | in | the character |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| l | character(len=1) | private |
Source
Show the code
elemental function lower_char(c) result(l)
character, intent(in) :: c !! the character
character :: l
l = c
if (c >= 'A' .and. c <= 'Z') l = achar(iachar(c) + 32)
end function lower_char