TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-08 04:19:15 +01:00
Code Issues Projects Releases Wiki Activity

Fix #110

Browse Source
This commit is contained in:
Anthony Scemama 2023-06-21 14:42:40 +02:00
parent 9211bf576f
commit 5228c287ad
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
org/qmckl_jastrow_champ.org
View File

@ -5685,7 +5685,7 @@ qmckl_exit_code qmckl_compute_een_rescaled_e_hpc (
#endif #endif
for (size_t nw = 0; nw < (size_t) walk_num; ++nw) { for (size_t nw = 0; nw < (size_t) walk_num; ++nw) {
double een_rescaled_e_ij[len_een_ij]; double* een_rescaled_e_ij = malloc(len_een_ij*sizeof(double));
memset(&(een_rescaled_e_ij[0]),0,len_een_ij*sizeof(double)); memset(&(een_rescaled_e_ij[0]),0,len_een_ij*sizeof(double));
for (size_t kk = 0; kk < elec_pairs ; ++kk) { for (size_t kk = 0; kk < elec_pairs ; ++kk) {
@ -5754,6 +5754,7 @@ qmckl_exit_code qmckl_compute_een_rescaled_e_hpc (
} }
} }
free(een_rescaled_e_ij);
} }
return QMCKL_SUCCESS; return QMCKL_SUCCESS;