TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-18 00:43:51 +02:00
Code Issues Projects Releases Wiki Activity

Cleaning

Browse Source
This commit is contained in:
Anthony Scemama 2022-04-06 16:26:35 +02:00
parent 6c7634038f
commit cc5f6914f6
2 changed files with 646 additions and 604 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

854
org/qmckl_jastrow.org
View File

File diff suppressed because it is too large Load Diff

2
org/qmckl_mo.org
View File

@ -791,7 +791,6 @@ qmckl_compute_mo_basis_mo_vgl_hpc (const qmckl_context context,
double av4[ao_num]; double av4[ao_num];
double av5[ao_num]; double av5[ao_num];
for (int64_t k=0 ; k<ao_num ; ++k) { for (int64_t k=0 ; k<ao_num ; ++k) {
const double* restrict ck1 = coef_normalized_t + k*mo_num;
if (avgl1[k] != 0.) { if (avgl1[k] != 0.) {
idx[nidx] = k; idx[nidx] = k;
av1[nidx] = avgl1[k]; av1[nidx] = avgl1[k];
@ -805,7 +804,6 @@ qmckl_compute_mo_basis_mo_vgl_hpc (const qmckl_context context,
int64_t n; int64_t n;
for (n=0 ; n < nidx-4 ; n+=4) { for (n=0 ; n < nidx-4 ; n+=4) {
int64_t k = idx[n];
const double* restrict ck1 = coef_normalized_t + idx[n ]*mo_num; const double* restrict ck1 = coef_normalized_t + idx[n ]*mo_num;
const double* restrict ck2 = coef_normalized_t + idx[n+1]*mo_num; const double* restrict ck2 = coef_normalized_t + idx[n+1]*mo_num;
const double* restrict ck3 = coef_normalized_t + idx[n+2]*mo_num; const double* restrict ck3 = coef_normalized_t + idx[n+2]*mo_num;