Commit 787d6c97 authored by giannozz's avatar giannozz

Minor corrections


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent 8140bf65
......@@ -46,7 +46,7 @@ SUBROUTINE read_upf(upf, grid, ierr, unit, filename) !
IF(.not. present(unit)) THEN
IF (.not. present(filename)) &
CALL errore('write_upf_v2',&
CALL errore('read_upf',&
'You have to specify at least one between filename and unit',1)
CALL iotk_free_unit(u)
ELSE
......@@ -74,7 +74,7 @@ END SUBROUTINE read_upf
!------------------------------------------------+
SUBROUTINE write_upf(upf, conf, unit, filename) !
!---------------------------------------------+
! Read pseudopotential in UPF format version 2, uses iotk
! Write pseudopotential in UPF format version 2, uses iotk
!
IMPLICIT NONE
TYPE(pseudo_upf),INTENT(IN) :: upf ! the pseudo data
......
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