source:
vendors/XMLF90/current/doc/Tutorial/xpath/mixing.f90
@
1960
Last change on this file since 1960 was 1960, checked in by flavoni, 14 years ago | |
---|---|
File size: 355 bytes |
Line | |
---|---|
1 | program self |
2 | use flib_xpath |
3 | ! |
4 | type(xml_t) :: fxml |
5 | |
6 | integer :: status |
7 | character(len=100) :: pcdata |
8 | |
9 | call open_xmlfile("inventory_text.xml",fxml,status) |
10 | ! |
11 | do |
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 | |
17 | enddo |
18 | end program self |
Note: See TracBrowser
for help on using the repository browser.