Commit 58fe0866 authored by dalcorso's avatar dalcorso

read_upf_tofile can be used also on upf_v1.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13491 c92efa57-630b-4861-b058-cf58834340f0
parent bc7be41c
......@@ -54,7 +54,7 @@ PROGRAM read_upf_tofile
CALL read_upf(upf, grid, ierr, unit=iunps)
!
IF (ierr /= 0) &
IF (ierr /= 0 .AND. ierr /=-1) &
CALL errore('read_upf_tofile','reading pseudo upf', abs(ierr))
!
CLOSE(iunps)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment