Bug fix: a problem with the routine that symmetrizes the quantization axis in

the noncollinear/GGA case.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7238 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2010-11-23 09:34:17 +00:00
parent 1564c205be
commit fd73966324
1 changed files with 2 additions and 2 deletions

View File

@ -200,10 +200,10 @@ CONTAINS
segno=1.0_DP
IF (sname(isym)(1:3)=='inv') segno=-1.0_DP
IF (t_rev(isym)==1) segno=-1.0_DP*segno
work (:) = work (:) + segno * &
work (:) = work (:) + segno * ( &
s (:, 1, isym) * vect (1) + &
s (:, 2, isym) * vect (2) + &
s (:, 3, isym) * vect (3)
s (:, 3, isym) * vect (3) )
enddo
work=work/nsym
!