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

Bug fix: problem with lgamma_gamma + zue + noncubic cells. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5297 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2008-11-27 16:28:58 +00:00
parent 999d5fb2b5
commit c0d7640010
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PH/dynmatrix.f90
View File

@ -157,9 +157,9 @@ subroutine dynmatrix
DO na=1,nat
work(:)=0.0_DP
DO icart=1,3
work(icart)=zstar(jcart,1,na)*bg(1,icart)+ &
zstar(jcart,2,na)*bg(2,icart)+ &
zstar(jcart,3,na)*bg(3,icart)
work(icart)=zstar(jcart,1,na)*at(1,icart)+ &
zstar(jcart,2,na)*at(2,icart)+ &
zstar(jcart,3,na)*at(3,icart)
ENDDO
zstar(jcart,:,na)=work(:)
ENDDO