mirror of https://gitlab.com/QEF/q-e.git
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:
parent
851befc9e5
commit
00c3054e74
|
@ -653,7 +653,7 @@ SUBROUTINE read_pseudo_gipaw ( upf, iunps )
|
|||
READ ( iunps, *, err=100, end=100 ) upf%gipaw_data_format
|
||||
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_local ( upf, iunps )
|
||||
CALL read_pseudo_gipaw_orbitals ( upf, iunps )
|
||||
|
|
Loading…
Reference in New Issue