← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Util/pseudo-xml/xml2psf.f90

  • Committer: Alberto Garcia
  • Date: 2016-06-23 10:02:59 UTC
  • mto: (483.11.3 4.0-xc) (560.3.1 4.1-ag)
  • mto: This revision was merged to the branch mainline in revision 525.
  • Revision ID: albertog@icmab.es-20160623100259-mewju7fsd2toyp1r
Tags: 4.0-release, v4.0
Release of siesta-4.0

* Update Docs/release_notes.4.0

* Update list of contributors.

* Add some more documentation and comments, and clarify notes in
  output for the recet electric-field/slab-dipole-correction fix.

* Remove Util/pseudo-xml

* Other minor changes in README files


  
                

        

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/pseudo-xml/xml2psf.f90
1
 
! ---
2
 
! Copyright (C) 1996-2016       The SIESTA group
3
 
!  This file is distributed under the terms of the
4
 
!  GNU General Public License: see COPYING in the top directory
5
 
!  or http://www.gnu.org/copyleft/gpl.txt .
6
 
! See Docs/Contributors.txt for a list of contributors.
7
 
! ---
8
 
program xml2psf
9
 
 
10
 
  use pseudopotential, only: pseudopotential_t, pseudo_write_formatted
11
 
  use m_pseudo_types,  only: pseudo_t
12
 
  use m_pseudo,        only: begin_element, end_element, pcdata_chunk
13
 
  use m_pseudo,        only: pseudo    ! Shared structure
14
 
  use flib_sax,        only: xml_t, open_xmlfile, xml_parse
15
 
 
16
 
 implicit none 
17
 
 
18
 
 type(pseudopotential_t)         :: p
19
 
 type(pseudo_t), pointer         :: psxml
20
 
 type(xml_t)                     :: fxml
21
 
 
22
 
 integer :: iostat
23
 
 
24
 
 call open_xmlfile("PSXML",fxml,iostat)
25
 
 if (iostat /=0) stop "Cannot open file"
26
 
                                                                         
27
 
 call xml_parse(fxml, begin_element,end_element,pcdata_chunk,verbose=.false.)
28
 
 
29
 
 psxml => pseudo
30
 
 
31
 
 call xml2psf_helper( psxml, p )
32
 
 call pseudo_write_formatted("PSF",p)
33
 
 
34
 
end program xml2psf