sadjustr_character Function

public pure function sadjustr_character(self) result(adjusted)

Arguments

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

The string.

Return Value character(kind=CK,len=len(self%raw))

Adjusted string.

Description

Right adjust a string by removing leading spaces (character output).

Called By

proc~~sadjustr_character~~CalledByGraph proc~sadjustr_character sadjustr_character interface~adjustr adjustr interface~adjustr->proc~sadjustr_character
Help

Source Code

  pure function sadjustr_character(self) result(adjusted)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Right adjust a string by removing leading spaces (character output).
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string), intent(in)             :: self     !< The string.
  character(kind=CK, len=len(self%raw)) :: adjusted !< Adjusted string.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) adjusted = adjustr(self%raw)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction sadjustr_character