source:
vendors/XMLF90/current/doc/Examples/sax/pseudo/pseudo.f90
@
1960
Last change on this file since 1960 was 1960, checked in by flavoni, 14 years ago | |
---|---|
File size: 439 bytes |
Line | |
---|---|
1 | program pseudo |
2 | ! |
3 | ! Example driver for the construction of data structures from an xml document |
4 | ! |
5 | use flib_sax |
6 | use m_pseudo ! Defines begin_element, end_element, pcdata_chunk |
7 | |
8 | integer :: iostat |
9 | type(xml_t) :: fxml |
10 | |
11 | call open_xmlfile("pseudo.xml",fxml,iostat) |
12 | if (iostat /=0) stop "Cannot open file" |
13 | |
14 | call xml_parse(fxml, & |
15 | begin_element,end_element,pcdata_chunk,verbose=.false.) |
16 | |
17 | end 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.