fixed logic

Nek5000 · Mar 24, 2024 · 781fcb1 · 781fcb1
1 parent 76b4db1
commit 781fcb1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/batch.f b/code/batch.f
@@ -13,7 +13,7 @@ subroutine breduce(a,n,m)
       if (m.gt.lbat) m = lbat
       i=1
 
-      do while (i.lt.n)
+      do while (i.le.n)
          call gop(a(i),w,'+  ',1,min(m,n-i+1))
          i=i+m
       enddo