fixed logic

Nek5000 · Mar 24, 2024 · c293a70 · c293a70
1 parent 83133c5
commit c293a70
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/code/batch.f b/code/batch.f
@@ -10,15 +10,12 @@ subroutine breduce(a,n,m)
 
       real a(n)
 
-      ! remainder k from n / m
       if (m.gt.lbat) m = lbat
-
-      k = n / m
       i=1
 
       do while (i.lt.n)
          call gop(a(i),w,'+  ',1,min(m,n-i+1))
-         i=i+l
+         i=i+m
       enddo
 
       return