optimize LR log

Author: maki49

source/module_base/global_file.cpp

@@ -153,28 +153,18 @@ void ModuleBase::Global_File::make_dir_out(
 #endif
     }
 
-    std::stringstream ss,ss1;
-
-    // mohan add 2010-09-12
-    if(out_alllog)
-    {
-	    ss << "running_" << calculation << "_" << rank + 1;
-	    open_log(GlobalV::ofs_running, ss.str(), calculation, restart);
-        #if defined(__CUDA) || defined(__ROCM)
-        open_log(GlobalV::ofs_device, "device" + std::to_string(rank), calculation, restart);
-        #endif
-    }
-    else
-    {
-	    if(rank==0)
-	    {
-		    ss << "running_" << calculation;
-		    open_log(GlobalV::ofs_running, ss.str(), calculation, restart);
-            #if defined(__CUDA) || defined(__ROCM)
-            open_log(GlobalV::ofs_device, "device", calculation, restart);
-            #endif
-	    }
-    }
+    auto open_running_log = [&](const std::string& keyword)
+        {
+            std::stringstream ss;
+            ss << "running_" << keyword;
+            if (out_alllog) ss << "_" << rank + 1;
+            open_log(GlobalV::ofs_running, ss.str(), keyword, restart);
+#if defined(__CUDA) || defined(__ROCM)
+            open_log(GlobalV::ofs_device, "device" + std::to_string(rank), calculation, restart);
+#endif
+        };
+    // if linear response solver only, open running_lr.log. else, open running_calculation.log
+    if (out_alllog || rank == 0) { open_running_log(PARAM.inp.esolver_type == "lr" ? "lr" : calculation); }
 
     if(rank==0)
     {

source/module_lr/esolver_lrtd_lcao.cpp

@@ -46,9 +46,6 @@ void LR::ESolver_LR<double>::move_exx_lri(std::shared_ptr<Exx_LRI<std::complex<d
 template<>void LR::ESolver_LR<double>::set_gint() { this->gint_ = &this->gint_g_;this->gint_g_.gridt = &this->gt_; }
 template<>void LR::ESolver_LR<std::complex<double>>::set_gint() { this->gint_ = &this->gint_k_; this->gint_k_.gridt = &this->gt_; }
 
-inline double getreal(std::complex<double> x) { return x.real(); }
-inline double getreal(double x) { return x; }
-
 inline void redirect_log(const bool& out_alllog)
 {
     GlobalV::ofs_running.close();
@@ -259,7 +256,6 @@ LR::ESolver_LR<T, TR>::ESolver_LR(const Input_para& inp, UnitCell& ucell) : inpu
 , exx_info(GlobalC::exx_info)
 #endif
 {
-    redirect_log(inp.out_alllog);
     ModuleBase::TITLE("ESolver_LR", "ESolver_LR(from scratch)");
     // xc kernel
     this->xc_kernel = inp.xc_kernel;