Bug fix: a problem in the band plot for lines passing through points

with different symmetry.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9240 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-07-28 14:13:44 +00:00
parent 33b724aac3
commit 3cf985a644
1 changed files with 1 additions and 1 deletions

View File

@ -121,7 +121,7 @@ PROGRAM plotband
ps = ( k1(1)*k2(1) + k1(2)*k2(2) + k1(3)*k2(3) ) / &
sqrt( k1(1)*k1(1) + k1(2)*k1(2) + k1(3)*k1(3) ) / &
sqrt( k2(1)*k2(1) + k2(2)*k2(2) + k2(3)*k2(3) )
high_symmetry(n) = (ABS(ps-1.d0) >1.0d-4)
high_symmetry(n) = (ABS(ps-1.d0) >1.0d-4).OR.high_symmetry(n)
!
! The gamma point is a high symmetry point
!