sadjustr_character Function

  1. stringifor_string_t.F90
  2. stringifor_string_t
  3. sadjustr_character

private pure function sadjustr_character(s) result(adjusted)

Arguments

TypeIntentOptionalAttributesName
class(string), intent(in) :: s

Return Value character(kind=CK,len=:),allocatable


Called by

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

Contents

Source Code

sadjustr_character

Source Code

   pure function sadjustr_character(s) result(adjusted)
   !< Right adjust a string by removing leading spaces (character output).
   !<
   !<```fortran
   !< type(string) :: astring
   !< astring = 'Hello World!   '
   !< print "(L1)", adjustr(astring)=='   Hello World!'
   !<```
   !=> T <<<
   class(string), intent(in)              :: s        !< String.
   character(kind=CK, len=:), allocatable :: adjusted !< Adjusted string.

   if (allocated(s%raw)) adjusted = adjustr(s%raw)
   endfunction sadjustr_character