Reduce_timestep() [1/7]

template<typename T >

void cntr::Reduce_timestep	(	int	tstp,
		int	root,
		herm_matrix_timestep< T > &	Gred,
		herm_matrix_timestep< T > &	G
	)

MPI reduce for the herm_matrix_timestep to a herm_matrix_timestep

Purpose

MPI reduce for the herm_matrix_timestep to the root Works for scalar or square-matrix contour objects.

Parameters

tstp	time step
root	Index of root
Gred	The reduced herm_matrix_timestep on rank root.
G	The herm_matrix_timestep on the individual ranks.

Definition at line 34 of file cntr_mpitools_impl.hpp.

References cntr::herm_matrix_timestep< T >::ntau(), cntr::herm_matrix_timestep< T >::size1(), cntr::herm_matrix_timestep< T >::size2(), and cntr::herm_matrix_timestep< T >::tstp().

Referenced by Reduce_timestep().

                               {
    assert(tstp == G.tstp()); 
    int taskid;
    MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
    if (taskid == root) {
        assert(tstp == Gred.tstp());
        assert(G.ntau() == Gred.ntau());
        assert(G.size1() == Gred.size1());
        assert(G.size2() == Gred.size2());
    }

    int len = 2 * (2 * (tstp + 1) + G.ntau() + 1) * G.size1() * G.size2();

    if (sizeof(T) == sizeof(double)) {
        MPI_Reduce((double *)G.data_, (double *)Gred.data_, len, MPI_DOUBLE_PRECISION, MPI_SUM, root,
           MPI_COMM_WORLD);
   } else {
      if (taskid == root) std::cerr << "herm_matrix_timestep<T>::MPI_Reduce only for double " << std::endl;
      MPI_Finalize();
      exit(0);
   }

}

Here is the call graph for this function:

Here is the caller graph for this function: