source:
vendors/XMLF90/current/doc/Tutorial/xpath/i.simple.f90
@
1967
Last change on this file since 1967 was 1967, checked in by flavoni, 14 years ago | |
---|---|
File size: 320 bytes |
Line | |
---|---|
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.