source:
vendors/XMLF90/current/doc/Examples/dom/i.features.f90
@
1967
| Last change on this file since 1967 was 1967, checked in by flavoni, 14 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.
