source:
vendors/XMLF90/current/doc/Tutorial/xpath/i.euros.f90
@
1963
Last change on this file since 1963 was 1963, checked in by flavoni, 14 years ago | |
---|---|
File size: 416 bytes |
Line | |
---|---|
1 | program euros |
2 | use flib_xpath |
3 | ! |
4 | type(xml_t) :: fxml |
5 | |
6 | integer :: status |
7 | character(len=100) :: price |
8 | |
9 | !call enable_debug(sax=.false.) |
10 | |
11 | call open_xmlfile("inventory.xml",fxml,status) |
12 | ! |
13 | do |
14 | call get_node(fxml,path="//price", & |
15 | att_name="currency",att_value="euro", & |
16 | pcdata=price,status=status) |
17 | if (status < 0) exit |
18 | print *, "Price (euro): ", trim(price) |
19 | enddo |
20 | end program euros |
21 |
Note: See TracBrowser
for help on using the repository browser.