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

deallocation fix

Browse source
This commit is contained in:
edoapra 2022-11-02 18:21:52 -07:00
parent cce91737d8
commit 098696b2d5
No known key found for this signature in database
GPG key ID: E6E392F4E14FB937
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/geom/geom_hnd.F
View file

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