From 48ae7c3cb84d9e8da337a4d05ae57ae7ed97f2ce Mon Sep 17 00:00:00 2001
From: Daniel Mejia-Rodriguez <daniel.mejia@pnnl.gov>
Date: Tue, 1 Aug 2023 14:43:12 -0700
Subject: [PATCH] Destroy GA at the end

---
 src/bsemol/bse_davidson.F | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/bsemol/bse_davidson.F b/src/bsemol/bse_davidson.F
index d0658f4a6a..560fdd382b 100644
--- a/src/bsemol/bse_davidson.F
+++ b/src/bsemol/bse_davidson.F
@@ -514,6 +514,9 @@
       stat = ma_chop_stack(l_dia)
       if(.not.stat) call errquit('deallocation failed',501,MA_ERR) 
 
+      ! Destroy GAs
+      if (.not.ga_destroy(pars%g_apb))
+     &    call errquit(pname//'could not destroy temp GA',519,GA_ERR)
 
       end subroutine bse_davidson