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 |
Line | |
---|---|
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.