!
!$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_count/tstsax_count.f95 $
!
program tstsax_count
  
  use flib_sax
  use m_count

  integer :: i, iostat
  type(xml_t)  :: fxml

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

  call xml_parse(fxml, &
                  begin_element_handler, &
                  end_element_handler,   &
                  pcdata_chunk_handler) 
  
  do i=1,nhash
     write(unit=*,fmt="(3a,i6)") "Number of ",trim(element_hash(i)%elm), & 
                 " elements: ",element_hash(i)%num
  enddo

end program tstsax_count