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

Small cleanup. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9926 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2013-02-04 10:10:35 +00:00
parent 3c9d6ee9da
commit 74103cc59f
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
PHonon/PH/elphon.f90
View File

@ -819,7 +819,7 @@ SUBROUTINE elphsum_simple
USE control_flags, ONLY : modenum, noinv
USE units_ph, ONLY :iudyn
USE io_files, ONLY : prefix
USE qpoint, ONLY : xq, nksq
USE qpoint, ONLY : xq, nksq, ikks, ikqs
USE dynmat, ONLY : dyn, w2
USE modes, ONLY : u,rtau, nsymq,irotmq, minus_q
USE control_ph, only : lgamma
@ -907,13 +907,8 @@ SUBROUTINE elphsum_simple
!
! see subroutine elphel for the logic of indices
!
IF (lgamma) THEN
ikk = ik
ikq = ik
ELSE
ikk = 2 * ik - 1
ikq = ikk + 1
ENDIF
ikk = ikks(ik)
ikq = ikqs(ik)
DO ibnd = 1, nbnd
w0g1 = w0gauss ( (ef1 - et (ibnd, ikk) ) / degauss1, ngauss1) &
/ degauss1