fson_value_count Function

  1. fson_library.f90
  2. fson_value_m
  3. fson_value_count

public function fson_value_count(this) result(count)

Arguments

Type IntentOptional AttributesName
type(fson_value), pointer:: this

Return Value integer


Contents

Source Code

fson_value_count

Source Code

  integer function fson_value_count(this) result(count)
    type(fson_value), pointer :: this, p

    count = 0

    p => this % children

    do while (associated(p))
       count = count + 1
       p => p % next
    end do

  end function fson_value_count