source:
XMLF90-doc/Examples/dom/i.features.f90
@
332
Last change on this file since 332 was 6, checked in by ymipsl, 16 years ago | |
---|---|
File size: 284 bytes |
Line | |
---|---|
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.