sadjustl_character Function

private pure function sadjustl_character(s) result(adjusted)

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

 type(string) :: astring
 astring = '   Hello World!'
 print "(L1)", adjustl(astring)=='Hello World!   '

Arguments

Type IntentOptional Attributes Name
class(string), intent(in) :: s

String.

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

Adjusted string.


Called by

proc~~sadjustl_character~~CalledByGraph proc~sadjustl_character stringifor_string_t::sadjustl_character interface~adjustl stringifor_string_t::adjustl interface~adjustl->proc~sadjustl_character

Contents

Source Code

sadjustl_character

Source Code

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

   if (allocated(s%raw)) adjusted = adjustl(s%raw)
   endfunction sadjustl_character