source: XMLF90/doc/Examples/wxml/pseudo.f90 @ 6

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

Import des sources XMLF90

File size: 381 bytes
Line 
1program pseudoxml
2!
3! Converts legacy Froyen-style pseudo files to XML
4!
5use m_pseudo_utils
6
7type(pseudopotential_t)  :: pseudo
8
9call pseudo_read_formatted("PSF",pseudo)
10!
11! Complete the information in the data structures if possible
12!
13call pseudo_complete(pseudo)
14call pseudo_header_print(6,pseudo)
15!
16! Output XML
17!
18call pseudo_write_xml("PSXML",pseudo)
19
20end program pseudoxml
21
22
23
Note: See TracBrowser for help on using the repository browser.