source:
vendors/XMLF90/current/doc/Tutorial/xpath/euros.f90
@
1963
Last change on this file since 1963 was 1963, checked in by flavoni, 14 years ago | |
---|---|
File size: 416 bytes |
Rev | Line | |
---|---|---|
[1963] | 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.