scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Read harmlessy v0.1 GIPAW pseudopotentials. (D.C.) 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6533 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dceresoli 2010-03-23 15:20:49 +00:00
parent 851befc9e5
commit 00c3054e74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules/read_upf_v1.f90
View File

@ -653,7 +653,7 @@ SUBROUTINE read_pseudo_gipaw ( upf, iunps )
READ ( iunps, *, err=100, end=100 ) upf%gipaw_data_format READ ( iunps, *, err=100, end=100 ) upf%gipaw_data_format
CALL scan_end ( iunps, "GIPAW_FORMAT_VERSION" ) CALL scan_end ( iunps, "GIPAW_FORMAT_VERSION" )
IF ( upf%gipaw_data_format == 1 ) THEN IF ( upf%gipaw_data_format == 1 .or. upf%gipaw_data_format == 0 ) THEN
CALL read_pseudo_gipaw_core_orbitals ( upf, iunps ) CALL read_pseudo_gipaw_core_orbitals ( upf, iunps )
CALL read_pseudo_gipaw_local ( upf, iunps ) CALL read_pseudo_gipaw_local ( upf, iunps )
CALL read_pseudo_gipaw_orbitals ( upf, iunps ) CALL read_pseudo_gipaw_orbitals ( upf, iunps )