source: XMLF90/doc/Examples/dom/features.f90 @ 6

Last change on this file since 6 was 6, checked in by ymipsl, 15 years ago

Import des sources XMLF90
File size: 284 bytes
Line 
1program 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)
14end program features
Note: See TracBrowser for help on using the repository browser.