TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-06 19:33:14 +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
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));
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;