fixed increment

Nek5000 · Mar 31, 2024 · 321665e · 321665e
1 parent cc0ac3e
commit 321665e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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