New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
simple.f90 in vendors/XMLF90/current/doc/Tutorial/xpath – NEMO

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

importing XMLF90 r_53 vendor

File size: 320 bytes
Line 
1program simple
2use flib_xpath
3
4type(xml_t) :: fxml
5
6integer  :: status
7character(len=100)  :: what
8
9call open_xmlfile("inventory.xml",fxml,status)
10!
11do
12      call get_node(fxml,path="//description",pcdata=what,status=status)
13      if (status < 0)   exit
14      print *, "Appliance: ", trim(what)
15enddo
16end program simple
Note: See TracBrowser for help on using the repository browser.