append_string Subroutine

  1. fson_library.f90
  2. fson_string_m
  3. append_string

private subroutine append_string(str1, str2)

Arguments

Type IntentOptional AttributesName
type(fson_string), pointer:: str1
type(fson_string), pointer:: str2

Contents

Source Code

append_string

Source Code

  subroutine append_string(str1, str2)
    type(fson_string), pointer :: str1, str2
    integer length, i

    length = string_length(str2)

    do i = 1, length
       call append_char(str1, get_char_at(str2, i))
    end do

  end subroutine append_string