upper Function

private elemental function upper(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 uppercase characters.


Variables

TypeVisibility AttributesNameInitial
integer, public :: n1

Characters counter.

integer, public :: n2

Characters counter.


Source Code

  elemental function upper(self)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return a string with all uppercase characters.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string), intent(in) :: self  !< The string.
  type(string)              :: upper !< Upper case string.
  integer                   :: n1    !< Characters counter.
  integer                   :: n2    !< Characters counter.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    upper = self
    do n1=1, len(self%raw)
      n2 = index(LOWER_ALPHABET, self%raw(n1:n1))
      if (n2>0) upper%raw(n1:n1) = UPPER_ALPHABET(n2:n2)
    enddo
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction upper