Fixed out-of-bounds memory access in v_compensating.

Author: ddhhss

source/module_surchem/H_correction_pw.cpp

@@ -166,8 +166,6 @@ ModuleBase::matrix surchem::v_compensating(const UnitCell &cell,
 
     rho_basis->real2recip(Porter, Porter_g);
 
-    this->Porter_g_anchor = Porter_g[rho_basis->ig_gge0];
-
     complex<double> *N = new complex<double>[rho_basis->npw];
     complex<double> *TOTN = new complex<double>[rho_basis->npw];
 
@@ -178,7 +176,6 @@ ModuleBase::matrix surchem::v_compensating(const UnitCell &cell,
 
     complex<double> *comp_reci = new complex<double>[rho_basis->npw];
     complex<double> *phi_comp_G = new complex<double>[rho_basis->npw];
-    // double *phi_comp_R = new double[rho_basis->nrxx];
 
     ModuleBase::GlobalFunc::ZEROS(comp_reci, rho_basis->npw);
     ModuleBase::GlobalFunc::ZEROS(phi_comp_G, rho_basis->npw);
@@ -234,7 +231,6 @@ ModuleBase::matrix surchem::v_compensating(const UnitCell &cell,
 
     delete[] comp_reci;
     delete[] phi_comp_G;
-    // delete[] phi_comp_R;
     delete[] Porter;
     delete[] Porter_g;
     delete[] N;

source/module_surchem/cal_vel.cpp

@@ -57,7 +57,6 @@ ModuleBase::matrix surchem::cal_vel(const UnitCell &cell,
     ModuleBase::TITLE("surchem", "cal_vel");
     ModuleBase::timer::tick("surchem", "cal_vel");
 
-    // double *TOTN_real = new double[pwb.nrxx];
     rho_basis->recip2real(TOTN, TOTN_real);
 
     // -4pi * TOTN(G)

source/module_surchem/surchem.h

@@ -24,7 +24,6 @@ class surchem
     ModuleBase::matrix Vcav;
     ModuleBase::matrix Vel;
     double qs;
-    complex<double> Porter_g_anchor;
 
     // compensating charge (in real space, used to cal_Acomp)
     double *comp_real;