fson_string_create Function

  1. fson_library.f90
  2. fson_string_m
  3. fson_string_create

public function fson_string_create(chars) result(new)

Arguments

Type IntentOptional AttributesName
character(len=*), optional :: chars

Return Value type(fson_string), pointer


Contents

Source Code

fson_string_create

Source Code

  function fson_string_create(chars) result(new)
    character(len=*), optional :: chars
    type(fson_string), pointer :: new

    allocate(new)

    ! append chars if available
    if (present(chars)) then
       call append_chars(new, chars)
    end if

  end function fson_string_create