comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 06:05:44 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Destroy GA at the end

Browse source
This commit is contained in:
Daniel Mejia-Rodriguez 2023-08-01 14:43:12 -07:00 • committed by edoapra
parent 2b70437433
commit 48ae7c3cb8
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bsemol/bse_davidson.F
View file

@ -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