From 1f933400db9b13cb91b808e3a791e12d43ced494 Mon Sep 17 00:00:00 2001
From: dalcorso <dalcorso@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 23 Mar 2005 16:32:45 +0000
Subject: [PATCH] Small bug fix.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1746 c92efa57-630b-4861-b058-cf58834340f0
---
 PP/bands.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PP/bands.f90 b/PP/bands.f90
index 0237d466c..ff718a3d8 100644
--- a/PP/bands.f90
+++ b/PP/bands.f90
@@ -360,7 +360,7 @@ SUBROUTINE punch_band (filband, spin_component)
      !
      IF ( ionode ) THEN
         !
-        IF (ik == 1) THEN
+        IF (ik == nks1) THEN
            WRITE (iunpun, '(" &plot nbnd=",i4,", nks=",i4," /")') &
                 nbnd, nks2-nks1+1
         END IF