source:
vendors/XMLF90/current/doc/Examples/dom/features.f90
@
1963
Last change on this file since 1963 was 1963, checked in by flavoni, 14 years ago | |
---|---|
File size: 284 bytes |
Rev | Line | |
---|---|---|
[1963] | 1 | program features |
2 | ||
3 | use flib_dom | |
4 | ||
5 | implicit none | |
6 | ||
7 | type(fnode), pointer :: myDoc | |
8 | ||
9 | myDoc => parsefile("test.xml" ) !! , verbose=.true.) | |
10 | print *, getNumberofAllocatedNodes() | |
11 | call dumpTree(myDoc) | |
12 | call xmlize(myDoc,"features.xml") | |
13 | call destroyNode(myDoc) | |
14 | end program features |
Note: See TracBrowser
for help on using the repository browser.