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

No reason to keep obsolete and confusing FIXME messages

This commit is contained in:
Paolo Giannozzi 2020-10-12 21:33:29 +02:00
parent 48020dff52
commit 096feece44
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
upflib/read_upf_new.f90
View File

@ -724,7 +724,6 @@ CONTAINS
CALL xmlr_readtag ('number_of_core_orbitals', upf%gipaw_ncore_orbitals) CALL xmlr_readtag ('number_of_core_orbitals', upf%gipaw_ncore_orbitals)
IF ( .NOT. upf%paw_as_gipaw) & IF ( .NOT. upf%paw_as_gipaw) &
CALL xmlr_readtag( 'number_of_valence_orbitals', upf%gipaw_wfs_nchannels) CALL xmlr_readtag( 'number_of_valence_orbitals', upf%gipaw_wfs_nchannels)
!print *, 'FIXME! upf%gipaw_ncore_orbitals'
END IF END IF
ALLOCATE ( upf%gipaw_core_orbital(upf%mesh,upf%gipaw_ncore_orbitals) ) ALLOCATE ( upf%gipaw_core_orbital(upf%mesh,upf%gipaw_ncore_orbitals) )
ALLOCATE ( upf%gipaw_core_orbital_n(upf%gipaw_ncore_orbitals) ) ALLOCATE ( upf%gipaw_core_orbital_n(upf%gipaw_ncore_orbitals) )
@ -781,8 +780,6 @@ CONTAINS
CALL xmlr_opentag( 'PP_GIPAW_ORBITALS' ) CALL xmlr_opentag( 'PP_GIPAW_ORBITALS' )
CALL get_attr( 'number_of_valence_orbitals', & CALL get_attr( 'number_of_valence_orbitals', &
upf%gipaw_wfs_nchannels ) upf%gipaw_wfs_nchannels )
ELSE
!print *, 'FIXME! upf%gipaw_wfs_nchannel'
END IF END IF
ALLOCATE ( upf%gipaw_wfs_el(upf%gipaw_wfs_nchannels) ) ALLOCATE ( upf%gipaw_wfs_el(upf%gipaw_wfs_nchannels) )
ALLOCATE ( upf%gipaw_wfs_ll(upf%gipaw_wfs_nchannels) ) ALLOCATE ( upf%gipaw_wfs_ll(upf%gipaw_wfs_nchannels) )