source: XMLF90/doc/Tutorial/xpath/i.euros.f90 @ 6

Last change on this file since 6 was 6, checked in by ymipsl, 13 years ago

Import des sources XMLF90

File size: 416 bytes
Line 
1program euros
2use flib_xpath
3!
4type(xml_t) :: fxml
5
6integer  :: status
7character(len=100)  :: price
8
9!call enable_debug(sax=.false.)
10
11call open_xmlfile("inventory.xml",fxml,status)
12!
13do
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)
19enddo
20end program euros
21
Note: See TracBrowser for help on using the repository browser.