Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(string), | intent(in) | :: | self | The string. |
Upper case string.
Return a string with all lowercase characters.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | n1 | Characters counter. |
|||
integer, | public | :: | n2 | Characters counter. |
elemental function lower(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Return a string with all lowercase characters.
!---------------------------------------------------------------------------------------------------------------------------------
class(string), intent(in) :: self !< The string.
type(string) :: lower !< Upper case string.
integer :: n1 !< Characters counter.
integer :: n2 !< Characters counter.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (allocated(self%raw)) then
lower = self
do n1=1, len(self%raw)
n2 = index(UPPER_ALPHABET, self%raw(n1:n1))
if (n2>0) lower%raw(n1:n1) = LOWER_ALPHABET(n2:n2)
enddo
endif
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction lower