mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-12-22 20:36:01 +01:00
Cleaning
This commit is contained in:
parent
6c7634038f
commit
cc5f6914f6
File diff suppressed because it is too large
Load Diff
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user