program example_5_6

  use FoX_dom 
  implicit none

  integer :: i
  type(Node), pointer :: doc, placemark, description
  type(NodeList), pointer :: placemarkList, descriptionList

  doc => parseFile("hypoDD.kml")

  placemarkList => getElementsByTagname(doc, "Placemark")

  print*, "There are ", getLength(placemarkList), " Placemarks in this KML file."

  do i = 0, getLength(placemarkList) - 1
    placemark => item(placemarkList, i)
    description => item( getElementsByTagname(placemark, "description"), 0)
    print*, "Placemark number ", i, " has description: ", getTextContent(description)
  enddo

  call destroy(doc)

end program example_5_6