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

Small correction. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9923 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2013-02-04 09:47:59 +00:00
parent 62583d7f5c
commit 4950b65a3d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PHonon/PH/elphon.f90
View File

@ -961,7 +961,7 @@ SUBROUTINE elphsum_simple
ENDIF
DO nu = 1, nmodes
gamma = 0.0
gamma = 0.d0
DO mu = 1, 3 * nat
DO vu = 1, 3 * nat
gamma = gamma + DBLE (CONJG (dyn (mu, nu) ) * el_ph_sum (mu, vu)&
@ -990,7 +990,7 @@ SUBROUTINE elphsum_simple
! lambda(nu)= gamma(nu)/(pi N(Ef) \omega_{q,nu}^2)
lambda = gamma / pi / w2 (nu) / dosef
ELSE
lambda = 0.0
lambda = 0.d0
ENDIF
! 3.289828x10^6 is the conversion factor from Ry to GHz
WRITE (6, 9010) nu, lambda, gamma * 3.289828d6