Send_timestep()

template<typename T >

void cntr::herm_matrix< T >::Send_timestep	(	int	tstp,
		int	dest,
		int	tag
	)

Sends the herm_matrix at a given time step to a specific task.

Purpose

Sends the herm_matrix at a given time step tstp to a specific task with rank dest.

Parameters

tstp	Time step which should be send.
dest	The task rank to which the herm_matrix should be send.
tag	The MPI error flag.

Definition at line 3511 of file cntr_herm_matrix_impl.hpp.

                                                              {
    int taskid;
    MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
    if (!(taskid == dest)) {
        herm_matrix_timestep<T> Gtemp;
        Gtemp.resize(tstp, ntau_, size1_);
        this->get_timestep(tstp, Gtemp);
        if (sizeof(T) == sizeof(double))
            MPI_Send(Gtemp.data_, Gtemp.total_size_,
                                 MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
        else
            MPI_Send(Gtemp.data_, Gtemp.total_size_, MPI_COMPLEX,
                                 dest, tag, MPI_COMM_WORLD);
    }
}