From a5a9ea348ba77bd89326490fddfd9ed3d4460587 Mon Sep 17 00:00:00 2001
From: Daniel Mejia-Rodriguez <daniel.mejia@pnnl.gov>
Date: Mon, 24 Jul 2023 10:54:18 -0700
Subject: [PATCH] Bug fix in ma_print

---
 src/util/ma_print.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/util/ma_print.F b/src/util/ma_print.F
index 273ea901bc..3a455630ba 100644
--- a/src/util/ma_print.F
+++ b/src/util/ma_print.F
@@ -16,7 +16,7 @@ c (c) Battelle, PNNL, 2002.
       write(LuOut,*)
       write(LuOut,*) title
       write(LuOut,9000)
-      do k = 0,mdim/6
+      do k = 0,(mdim-1)/6
         write(LuOut,*)
         write(LuOut,9010) (j,j=k*6+1,min(mdim,k*6+6))
         do i=1,ndim