mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-11-20 04:52:47 +01:00
Fixed shadowed variables
This commit is contained in:
parent
8a0a7585f9
commit
93083fbdfe
@ -2669,7 +2669,6 @@ qmckl_exit_code qmckl_compute_factor_ee_deriv_e_hpc(
|
||||
const double* ee_distance_rescaled_deriv_e,
|
||||
double* const factor_ee_deriv_e ) {
|
||||
|
||||
int64_t ii;
|
||||
double pow_ser_g[3];
|
||||
double dx[4];
|
||||
double x, spin_fact, y;
|
||||
@ -2756,7 +2755,7 @@ qmckl_exit_code qmckl_compute_factor_ee_deriv_e_hpc(
|
||||
+ pow_ser_g[ii] ;
|
||||
}
|
||||
|
||||
ii = 3;
|
||||
int ii = 3;
|
||||
lap2 = lap2 * dx[ii] * third;
|
||||
lap3 = lap3 + den * dx[ii];
|
||||
lap3 = lap3 * (spin_fact * b_vector[0] * invden3);
|
||||
@ -4991,7 +4990,6 @@ qmckl_exit_code qmckl_compute_een_rescaled_e_hpc (
|
||||
double x;
|
||||
const int64_t elec_pairs = (elec_num * (elec_num - 1)) / 2;
|
||||
const int64_t len_een_ij = elec_pairs * (cord_num + 1);
|
||||
int64_t k;
|
||||
|
||||
// number of elements for the een_rescaled_e_ij[N_e*(N_e-1)/2][cord+1]
|
||||
// probably in C is better [cord+1, Ne*(Ne-1)/2]
|
||||
@ -5025,7 +5023,7 @@ qmckl_exit_code qmckl_compute_een_rescaled_e_hpc (
|
||||
een_rescaled_e_ij[kk]= ( kk < (elec_pairs) ? 1.0 : 0.0 );
|
||||
}
|
||||
|
||||
k = 0;
|
||||
int64_t k = 0;
|
||||
for (int i = 0; i < elec_num; ++i) {
|
||||
for (int j = 0; j < i; ++j) {
|
||||
// een_rescaled_e_ij(k, 2) = dexp(-rescale_factor_ee * ee_distance(i, j, nw));
|
||||
|
Loading…
Reference in New Issue
Block a user