lower Function

private elemental function lower(self)

Arguments

Type IntentOptional AttributesName
class(string), intent(in) :: self

The string.

Return Value type(string)

Upper case string.

Description

Return a string with all lowercase characters.


Variables

TypeVisibility AttributesNameInitial
integer, public :: n1

Characters counter.

integer, public :: n2

Characters counter.


Source Code

  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