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

vtxc, etxc variables are intent(inout) 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2501 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2005-11-22 08:07:25 +00:00
parent 4834884e77
commit 30230d4636
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/gradcorr.f90
View File

@ -23,8 +23,8 @@ SUBROUTINE gradcorr( rho, rho_core, nr1, nr2, nr3, nrx1, nrx2, nrx3, &
INTEGER, INTENT(IN) :: nr1, nr2, nr3, nrx1, nrx2, nrx3, &
nrxx, ngm, nl(ngm), nspin
REAL (DP), INTENT(IN) :: rho_core(nrxx), g(3,ngm), alat, omega
REAL (DP), INTENT(OUT) :: v(nrxx,nspin), vtxc, etxc
REAL (DP), INTENT(INOUT) :: rho(nrxx,nspin)
REAL (DP), INTENT(OUT) :: v(nrxx,nspin)
REAL (DP), INTENT(INOUT) :: rho(nrxx,nspin), vtxc, etxc
!
INTEGER :: k, ipol, is, nspin0
!