source:
vendors/XMLF90/current/doc/Examples/wxml/i.pseudo.f90
@
1967
Last change on this file since 1967 was 1967, checked in by flavoni, 14 years ago | |
---|---|
File size: 381 bytes |
Rev | Line | |
---|---|---|
[1967] | 1 | program pseudoxml |
2 | ! | |
3 | ! Converts legacy Froyen-style pseudo files to XML | |
4 | ! | |
5 | use m_pseudo_utils | |
6 | ||
7 | type(pseudopotential_t) :: pseudo | |
8 | ||
9 | call pseudo_read_formatted("PSF",pseudo) | |
10 | ! | |
11 | ! Complete the information in the data structures if possible | |
12 | ! | |
13 | call pseudo_complete(pseudo) | |
14 | call pseudo_header_print(6,pseudo) | |
15 | ! | |
16 | ! Output XML | |
17 | ! | |
18 | call pseudo_write_xml("PSXML",pseudo) | |
19 | ||
20 | end program pseudoxml | |
21 | ||
22 | ||
23 |
Note: See TracBrowser
for help on using the repository browser.