source:
vendors/XMLF90/current/doc/Tutorial/xpath/simple.f90
@
1960
Last change on this file since 1960 was 1960, checked in by flavoni, 14 years ago | |
---|---|
File size: 320 bytes |
Rev | Line | |
---|---|---|
[1960] | 1 | program simple |
2 | use flib_xpath | |
3 | ||
4 | type(xml_t) :: fxml | |
5 | ||
6 | integer :: status | |
7 | character(len=100) :: what | |
8 | ||
9 | call open_xmlfile("inventory.xml",fxml,status) | |
10 | ! | |
11 | do | |
12 | call get_node(fxml,path="//description",pcdata=what,status=status) | |
13 | if (status < 0) exit | |
14 | print *, "Appliance: ", trim(what) | |
15 | enddo | |
16 | end program simple |
Note: See TracBrowser
for help on using the repository browser.