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

malloc needs free and not ga_free

Browse source
This commit is contained in:
edoapra 2024-07-25 13:05:43 -07:00
parent 3bd1383f0c
commit a406e2b006
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/util/ga_asymmetr.c
View file

@ -47,7 +47,6 @@ ga_antisymmetrize_(Integer *g_a) {
DoublePrecision alpha = 0.5;
int i, me = GA_Nodeid();
extern void FATR ga_free(void *ptr);
void FATR gai_subtr(int *lo, int *hi, void *a, void *b, DoublePrecision alpha,
int type, Integer nelem, int ndim);
@ -97,7 +96,7 @@ ga_antisymmetrize_(Integer *g_a) {
if(have_data) {
gai_subtr(alo, ahi, a_ptr, b_ptr, alpha, type, nelem, ndim);
NGA_Release_update((int)(*g_a), alo, ahi);
ga_free(b_ptr);
free(b_ptr);
}
GA_Sync();
}