string_length Function

  1. fson_library.f90
  2. fson_string_m
  3. string_length

private recursive function string_length(str) result(count)

Arguments

Type IntentOptional AttributesName
type(fson_string), pointer:: str

Return Value integer


Contents

Source Code

string_length

Source Code

  recursive integer function string_length(str) result(count)
    type(fson_string), pointer :: str

    count = str % index

    if (str % index == BLOCK_SIZE .AND. associated(str % next)) then
       count = count + string_length(str % next)
    end if

  end function string_length