!
!$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/tstsax3/MyHandler03.f95 $
!
!
! The Attribute Interface
!
module myhandler03

  use flib_sax

contains

  subroutine start_element(name,attributes)
    character(len=*), intent(in)   :: name
    type(dictionary_t), intent(in) :: attributes
    
    character(len=100)  :: value
    character(len=100)  :: aname
    integer :: n, i, status
    
    n = len(attributes)
    
    write(*,*) "Start Tag: ", name
    do i=1,n
       call get_value(attributes,i,value,status)
       call get_key(attributes,i,aname,status)
       write(*,*) "  ", trim(aname), " ==> ", trim(value)
    enddo
    
  end subroutine start_element

end module myhandler03