Intent of variable changed from INOUT to OUT

LP


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5143 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
paulatto 2008-08-28 12:06:34 +00:00
parent e195a8ce62
commit 5779179aed
1 changed files with 1 additions and 1 deletions

View File

@ -139,7 +139,7 @@ CONTAINS
IMPLICIT NONE
!
REAL(DP), INTENT(INOUT) :: pos_in(:)
REAL(DP), INTENT(INOUT) :: h(3,3)
REAL(DP), INTENT(OUT) :: h(3,3)
REAL(DP), INTENT(INOUT) :: energy
REAL(DP), INTENT(INOUT) :: grad_in(:)
REAL(DP), INTENT(INOUT) :: fcell(3,3)