Commit 337c2439 authored by dalcorso's avatar dalcorso

In the routine incdrhoscf the variable mode is not used.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3753 c92efa57-630b-4861-b058-cf58834340f0
parent ca08f0a8
......@@ -6,7 +6,7 @@
! or http://www.gnu.org/copyleft/gpl.txt .
!
!-----------------------------------------------------------------------
subroutine incdrhoscf (drhoscf, weight, ik, dbecsum, mode)
subroutine incdrhoscf (drhoscf, weight, ik, dbecsum)
!-----------------------------------------------------------------------
!
! This routine computes the change of the charge density due to the
......@@ -31,7 +31,6 @@ subroutine incdrhoscf (drhoscf, weight, ik, dbecsum, mode)
complex(DP) :: drhoscf (nrxxs), dbecsum (nhm*(nhm+1)/2,nat)
! output: the change of the charge densit
! inp/out: the accumulated dbec
integer :: mode
!
! here the local variable
!
......
......@@ -270,7 +270,7 @@ subroutine solve_e
! calculates dvscf, sum over k => dvscf_q_ipert
!
call incdrhoscf (dvscfout(1,current_spin,ipol), wk(ik), &
ik, dbecsum(1,1,current_spin,ipol), 1)
ik, dbecsum(1,1,current_spin,ipol))
enddo ! on polarizations
enddo ! on k points
#ifdef __PARA
......
......@@ -295,7 +295,7 @@ subroutine solve_e_fpol ( iw )
! calculates dvscf, sum over k => dvscf_q_ipert
!
call incdrhoscf (dvscfout(1,current_spin,ipol), wk(ik), &
ik, dbecsum(1,1,current_spin,ipol), 1)
ik, dbecsum(1,1,current_spin,ipol))
enddo ! on polarizations
enddo ! on k points
#ifdef __PARA
......
......@@ -414,7 +414,7 @@ subroutine solve_linter (irr, imode0, npe, drhoscf)
!
weight = wk (ikk)
call incdrhoscf (drhoscf(1,current_spin,ipert), weight, ik, &
dbecsum(1,1,current_spin,ipert), mode)
dbecsum(1,1,current_spin,ipert))
! on perturbations
enddo
! on k-points
......
......@@ -79,8 +79,7 @@ subroutine zstar_eu_us
do jpol = 1, 3
nrec = (jpol - 1) * nksq + ik
call davcio (dpsi, lrdwf, iudwf, nrec, - 1)
call incdrhoscf (dvscf(1,1,jpol),weight,ik, &
dbecsum(1,1,1,jpol), 1)
call incdrhoscf (dvscf(1,1,jpol),weight,ik, dbecsum(1,1,1,jpol))
end do
end do
......
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