From 098696b2d52b3050456eee7e2cba0f155da891f2 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Wed, 2 Nov 2022 18:21:52 -0700
Subject: [PATCH] deallocation fix

---
 src/geom/geom_hnd.F | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/geom/geom_hnd.F b/src/geom/geom_hnd.F
index 088c019b43..af6d56f8b5 100644
--- a/src/geom/geom_hnd.F
+++ b/src/geom/geom_hnd.F
@@ -4880,10 +4880,10 @@ c
          return
       endif
 c     
-      if (.not. ma_push_get(mt_int, nat*nat,'check all',l_m, k_m))
+      if (.not. ma_push_get(mt_int, nat*nat,'check all0',l_m, k_m))
      $     call errquit('geom_check_all_connected: ma?',nat*nat,
      &       MA_ERR)
-      if (.not. ma_push_get(mt_int, nat,'check all',l_clus, k_clus))
+      if (.not. ma_push_get(mt_int, nat,'check all1',l_clus, k_clus))
      $     call errquit('geom_check_all_connected: ma?',nat,
      &       MA_ERR)
 c     
@@ -4997,7 +4997,7 @@ c
                if (numijxtra .eq. mxbond) then
                   numijxtra = 0
                   okay = .false.
-                  return
+                  goto 10000
                endif
                if (oprint) write(LuOut,44) iclus, jclus, 
      &                     imin, jmin, rmin