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.
i.pseudo.f90 in vendors/XMLF90/current/doc/Examples/sax/pseudo – NEMO

source: vendors/XMLF90/current/doc/Examples/sax/pseudo/i.pseudo.f90 @ 1967

Last change on this file since 1967 was 1967, checked in by flavoni, 14 years ago

importing XMLF90 vendor

File size: 439 bytes
Line 
1program pseudo
2!
3! Example driver for the construction of data structures from an xml document
4!
5use flib_sax
6use m_pseudo      ! Defines begin_element, end_element, pcdata_chunk
7
8integer      :: iostat
9type(xml_t)  :: fxml
10
11call open_xmlfile("pseudo.xml",fxml,iostat)
12if (iostat /=0) stop "Cannot open file"
13
14call xml_parse(fxml, &
15                begin_element,end_element,pcdata_chunk,verbose=.false.)
16
17end program pseudo
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Note: See TracBrowser for help on using the repository browser.