get_by_index Function

  1. fson_library.f90
  2. fson_value_m
  3. get_by_index

private function get_by_index(this, index) result(p)

Arguments

Type IntentOptional AttributesName
type(fson_value), pointer:: this
integer, intent(in) :: index

Return Value type(fson_value), pointer


Contents

Source Code

get_by_index

Source Code

  function get_by_index(this, index) result(p)
    type(fson_value), pointer :: this, p
    integer, intent(in) :: index
    integer :: i

    p => this % children

    do i = 1, index - 1
       p => p % next
    end do

  end function get_by_index