Small bug fix: The number of k points was not written correctly in some cases.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1744 c92efa57-630b-4861-b058-cf58834340f0
2005-03-23 15:41:55 +00:00 · 2005-03-23 15:41:55 +00:00 · f876c90b57
parent df41d27c02
commit f876c90b57
1 changed files with 1 additions and 1 deletions
--- a/PP/bands.f90
+++ b/PP/bands.f90
@ -362,7 +362,7 @@ SUBROUTINE punch_band (filband, spin_component)
        !
        IF (ik == 1) THEN
           WRITE (iunpun, '(" &plot nbnd=",i4,", nks=",i4," /")') &
-                nbnd, nks
+                nbnd, nks2-nks1+1
        END IF
        WRITE (iunpun, '(14x,3f7.4)') xk(1,ik),xk(2,ik),xk(3,ik)
        WRITE (iunpun, '(10f8.3)') (et (il (ibnd) , ik) &