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

Unused variables removed 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3429 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-10-03 23:47:00 +00:00
parent 61652e343c
commit c29cecb4fe
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CPV/efield.f90
View File

@ -131,7 +131,6 @@ CONTAINS
SUBROUTINE berry_energy( enb, enbi, bec, cm, fion )
USE uspp, ONLY: betae => vkb
USE ions_positions, ONLY: tau0
USE control_flags, ONLY: tfor, tprnfor
IMPLICIT NONE
@ -249,7 +248,6 @@ CONTAINS
SUBROUTINE berry_energy2( enb, enbi, bec, cm, fion )
USE uspp, ONLY: betae => vkb
USE ions_positions, ONLY: tau0
USE control_flags, ONLY: tfor, tprnfor
IMPLICIT NONE

2
PW/realus.f90
View File

@ -452,7 +452,7 @@ MODULE realus
! ... this subroutine is the version of newd in real space
!
USE constants, ONLY : pi, fpi
USE ions_base, ONLY : nat, ntyp => nsp, ityp
USE ions_base, ONLY : nat, ityp
USE cell_base, ONLY : omega
USE gvect, ONLY : nr1, nr2, nr3, nrxx
USE lsda_mod, ONLY : nspin