!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/util/lib_sax/tstsax2/tstsax2.f95 $
!
program example02

  use flib_sax
  use MyHandler02

  type(xml_t) :: fxml
  integer     :: iostat


  call open_xmlfile("test.xml",fxml,iostat)
  if (iostat /= 0) stop "Cannot open file."

  call xml_parse(fxml,           &
                 begin_element_handler=start_element, &
                 end_element_handler=end_element,     &
                 start_document=start_document,       &
                 end_document=end_document            &
                 )

end program example02