append_chars Subroutine

private subroutine append_chars(str, c)

Arguments

Type IntentOptional AttributesName
type(fson_string), pointer:: str
character(len=*), intent(in) :: c

Contents

Source Code


Source Code

  subroutine append_chars(str, c)
    type(fson_string), pointer :: str
    character (len = *), intent(in) :: c
    integer length, i

    length = len(c)

    do i = 1, length
       call append_char(str, c(i:i))
    end do

  end subroutine append_chars