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

Modified in such a way that it doesn't stop if there are additional lines 

at the end aded by OPIUM


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6978 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2010-08-17 20:49:15 +00:00
parent 650037ffd0
commit e4b8783505
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
upftools/fhi2upf.f90
View File

@ -172,15 +172,15 @@ SUBROUTINE read_fhi(iunps)
WRITE (6,'(a)') 'Pseudopotential with NLCC successfully read'
! ----------------------------------------------------------
RETURN
20 WRITE(6,'("read_fhi: error reading core charge, assuming no core charge")')
WRITE(6,'("this error may be due to the presence of additional", &
& " lines at the end of file")')
10 CONTINUE
! ----------------------------------------------------------
WRITE (6,'(a)') 'Pseudopotential without NLCC successfully read'
! ----------------------------------------------------------
RETURN
!
20 WRITE(6,'("read_fhi: error reading core charge")')
STOP
!
100 WRITE(6,'("read_fhi: error reading pseudopotential file")')
STOP