diff --git a/code/batch.f b/code/batch.f
index bff37423..814b0258 100644
--- a/code/batch.f
+++ b/code/batch.f
@@ -17,7 +17,7 @@ subroutine breduce(a,n,m)
       if (n.ne.k*m) k=k+1
       m = n / k
 
-      nrem = n - (k+1)*m
+      nrem = n - k*m
 
       do while (i.le.n)
          ngop=m