source: XMLF90/doc/Tutorial/xpath/i.mixing.f90 @ 6

Last change on this file since 6 was 6, checked in by ymipsl, 13 years ago

Import des sources XMLF90

File size: 355 bytes
Line 
1program self
2use flib_xpath
3!
4type(xml_t) :: fxml
5
6integer  :: status
7character(len=100)  :: pcdata
8
9call open_xmlfile("inventory_text.xml",fxml,status)
10!
11do
12      call get_node(fxml,path="//item",pcdata=pcdata,status=status)
13      if (status < 0)   exit
14      !
15      print *, "PCDATA retrieved from item element: ", trim(pcdata)
16
17enddo
18end program self
Note: See TracBrowser for help on using the repository browser.