char_string_range Function

private pure function char_string_range(string, start, last) result(character_string)

Return the character sequence represented by the string.

Arguments

Type IntentOptional Attributes Name
type(string_type), intent(in) :: string
integer, intent(in) :: start
integer, intent(in) :: last

Return Value character(len=last)


Called by

proc~~char_string_range~~CalledByGraph proc~char_string_range char_string_range interface~char char interface~char->proc~char_string_range

Source Code

pure function char_string_range(string, start, last) result(character_string)
   type(string_type), intent(in) :: string
   integer, intent(in) :: start
   integer, intent(in) :: last
   character(len=last - start + 1) :: character_string

   character_string = merge(string%raw(int(start, long):int(last, long)), &
                            repeat(' ', int(len(character_string), long)), allocated(string%raw))

end function char_string_range