fix extra parameter in gop

Nek5000 · Mar 24, 2024 · 3af2e2b · 3af2e2b
1 parent 564e81a
commit 3af2e2b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/batch.f b/code/batch.f
@@ -14,7 +14,7 @@ subroutine breduce(a,n,m)
       i=1
 
       do while (i.le.n)
-         call gop(a(i),w,'+  ',1,min(m,n-i+1))
+         call gop(a(i),w,'+  ',min(m,n-i+1))
          i=i+m
       enddo