!
!$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/tstsax_pseudo/tstsax_pseudo.f95 $
!
program tstsax_pseudo
!
! Example driver for the construction of data structures from an xml document
!
use flib_sax
use m_pseudo      ! Defines begin_element, end_element, pcdata_chunk

integer      :: iostat
type(xml_t)  :: fxml

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

call xml_parse(fxml, &
                begin_element,end_element,pcdata_chunk,verbose=.false.)

end program tstsax_pseudo