Initialize MPI related variables: myid, num_procs and root_proc

Author: AsTonyshment

source/module_esolver/esolver_ks_lcao_tddft.cpp

@@ -271,7 +271,8 @@ void ESolver_KS_LCAO_TDDFT<Device>::update_pot(UnitCell& ucell, const int istep,
                 {
                     // Gather H and S matrices to root process
 #ifdef __MPI
-                    int myid, num_procs;
+                    int myid = 0;
+                    int num_procs = 1;
                     MPI_Comm_rank(MPI_COMM_WORLD, &myid);
                     MPI_Comm_size(MPI_COMM_WORLD, &num_procs);
 

source/module_hamilt_lcao/module_tddft/evolve_elec.cpp

@@ -114,7 +114,8 @@ void Evolve_elec<Device>::solve_psi(const int& istep,
                     // H_laststep and S_laststep are already gathered in esolver_ks_lcao_tddft.cpp
 #ifdef __MPI
                     // Access the rank of the calling process in the communicator
-                    int myid, root_proc = 0;
+                    int myid = 0;
+                    int root_proc = 0;
                     MPI_Comm_rank(MPI_COMM_WORLD, &myid);
 
                     // Gather psi to the root process

source/module_hamilt_lcao/module_tddft/evolve_psi.cpp

@@ -160,7 +160,8 @@ void evolve_psi_tensor(const int nband,
     if (use_lapack)
     {
         // Need to gather H and S matrix to root process here
-        int myid, num_procs;
+        int myid = 0;
+        int num_procs = 1;
         MPI_Comm_rank(MPI_COMM_WORLD, &myid);
         MPI_Comm_size(MPI_COMM_WORLD, &num_procs);
 
@@ -186,7 +187,8 @@ void evolve_psi_tensor(const int nband,
     ct::Tensor U_operator(ct::DataType::DT_COMPLEX_DOUBLE, ct_device_type, ct::TensorShape({len_HS}));
     U_operator.zero();
 
-    int myid, root_proc = 0;
+    int myid = 0;
+    int root_proc = 0;
     MPI_Comm_rank(MPI_COMM_WORLD, &myid);
 
     // (1)->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

source/module_hamilt_lcao/module_tddft/propagator.cpp

@@ -74,7 +74,8 @@ void Propagator::compute_propagator_tensor(const int nlocal,
         }
         else
         {
-            int myid, root_proc = 0;
+            int myid = 0;
+            int root_proc = 0;
             MPI_Comm_rank(MPI_COMM_WORLD, &myid);
             if (myid == root_proc)
             {