mirror of https://gitlab.com/QEF/q-e.git
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:
parent
650037ffd0
commit
e4b8783505
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue