@@ -480,13 +480,6 @@ void Force_Stress_LCAO<T>::getForceStress(UnitCell& ucell,
480480 fcs (iat, i) -= sum / nat;
481481 }
482482 }
483-
484- // xiaohui add "OUT_LEVEL", 2015-09-16
485- // if (PARAM.inp.out_level != "m")
486- // {
487- // GlobalV::ofs_running << " correction force for each atom along direction " << i + 1 << " is "
488- // << sum / nat << std::endl;
489- // }
490483 }
491484
492485 if (PARAM.inp .gate_flag || PARAM.inp .efield_flag )
@@ -550,16 +543,16 @@ void Force_Stress_LCAO<T>::getForceStress(UnitCell& ucell,
550543 // -----------------------------
551544 // this->print_force("OVERLAP FORCE",foverlap,1,ry);
552545 ModuleIO::print_force (GlobalV::ofs_running, ucell, " OVERLAP FORCE" , foverlap, false );
553- // this->print_force("TVNL_DPHI force",ftvnl_dphi,PARAM.inp.test_force);
554- // this->print_force("VNL_DBETA force",fvnl_dbeta,PARAM.inp.test_force);
546+ // this->print_force("TVNL_DPHI force",ftvnl_dphi,PARAM.inp.test_force);
547+ // this->print_force("VNL_DBETA force",fvnl_dbeta,PARAM.inp.test_force);
555548 // this->print_force("T_VNL FORCE",ftvnl,1,ry);
556549 ModuleIO::print_force (GlobalV::ofs_running, ucell, " T_VNL FORCE" , ftvnl, false );
557550 ModuleIO::print_force (GlobalV::ofs_running, ucell, " VL_dPHI FORCE" , fvl_dphi, false );
558551 // this->print_force("VL_dPHI FORCE",fvl_dphi,1,ry);
559552 // this->print_force("VL_dVL FORCE",fvl_dvl,1,ry);
560553 ModuleIO::print_force (GlobalV::ofs_running, ucell, " VL_dVL FORCE" , fvl_dvl, false );
561554 ModuleIO::print_force (GlobalV::ofs_running, ucell, " EWALD FORCE" , fewalds, false );
562- // this->print_force("VLOCAL FORCE",fvlocal,PARAM.inp.test_force);
555+ // this->print_force("VLOCAL FORCE",fvlocal,PARAM.inp.test_force);
563556 // this->print_force("EWALD FORCE",fewalds,1,ry);
564557 ModuleIO::print_force (GlobalV::ofs_running, ucell, " NLCC FORCE" , fcc, false );
565558 ModuleIO::print_force (GlobalV::ofs_running, ucell, " SCC FORCE" , fscc, false );
@@ -815,31 +808,17 @@ void Force_Stress_LCAO<T>::calForcePwPart(UnitCell& ucell,
815808 if (PARAM.inp .device == " gpu" )
816809 {
817810 Forces<double , base_device::DEVICE_GPU> f_pw (nat);
818-
819- // --------------------------------------------------------
820- // local pseudopotential force:
821- // use charge density; plane wave; local pseudopotential;
822- // --------------------------------------------------------
823811 f_pw.cal_force_loc (ucell, fvl_dvl, rhopw, locpp.vloc , chr);
824- // --------------------------------------------------------
825- // ewald force: use plane wave only.
826- // --------------------------------------------------------
827- f_pw.cal_force_ew (ucell, fewalds, rhopw, &sf); // remain problem
828-
829- // --------------------------------------------------------
830- // force due to core correlation.
831- // --------------------------------------------------------
812+ f_pw.cal_force_ew (ucell, fewalds, rhopw, &sf);
832813 f_pw.cal_force_cc (fcc, rhopw, chr, locpp.numeric , ucell);
833- // --------------------------------------------------------
834- // force due to self-consistent charge.
835- // --------------------------------------------------------
836814 f_pw.cal_force_scc (fscc, rhopw, vnew, vnew_exist, locpp.numeric , ucell);
837- } else
815+ }
816+ else
838817#endif
839818 {
840819 Forces<double , base_device::DEVICE_CPU> f_pw (nat);
841820 f_pw.cal_force_loc (ucell, fvl_dvl, rhopw, locpp.vloc , chr);
842- f_pw.cal_force_ew (ucell, fewalds, rhopw, &sf); // remain problem
821+ f_pw.cal_force_ew (ucell, fewalds, rhopw, &sf);
843822 f_pw.cal_force_cc (fcc, rhopw, chr, locpp.numeric , ucell);
844823 f_pw.cal_force_scc (fscc, rhopw, vnew, vnew_exist, locpp.numeric , ucell);
845824 }
0 commit comments