subroutinelower_in_placepure
pure subroutine lower_in_place(text)
Make text lowercase, without a temporary, for text too long for the stack of a thread.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | inout | the text |
Calls
Source
Show the code
pure subroutine lower_in_place(text)
character(len=*), intent(inout) :: text !! the text
integer :: k
do k = 1, len(text)
text(k:k) = lower_char(text(k:k))
end do
end subroutine lower_in_place