padr_char_pad_with Function

private pure function padr_char_pad_with(string, output_length, pad_with) result(res)

Right pad the input string with the ‘pad_with’ character

Returns a new string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
integer, intent(in) :: output_length
character(len=1), intent(in) :: pad_with

Return Value character(kind=output_length), len=max)


Called by

proc~~padr_char_pad_with~~CalledByGraph proc~padr_char_pad_with padr_char_pad_with interface~padr padr interface~padr->proc~padr_char_pad_with proc~padr_string_pad_with padr_string_pad_with interface~padr->proc~padr_string_pad_with proc~padr_string_pad_with->interface~padr

Variables

Type Visibility Attributes Name Initial
integer, private :: string_length

Source Code

   pure function padr_char_pad_with(string, output_length, pad_with) result(res)
      character(len=*), intent(in) :: string
      integer, intent(in) :: output_length
      character(len=1), intent(in) :: pad_with
      character(len=max(len(string), output_length)) :: res
      integer :: string_length

      string_length = len(string)

      res = string
      if (string_length < output_length) then
         res(string_length + 1:output_length) = &
            repeat(pad_with, output_length - string_length)
      end if

   end function padr_char_pad_with