Send_timestep()

template<typename T >

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

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

Purpose

Sends the herm_matrix_timestep_view 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_timestep_view should be send.
tag	The MPI error flag.

Definition at line 1757 of file cntr_herm_matrix_timestep_view_impl.hpp.

                                                                            {
   int taskid;
   MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
   assert(tstp == tstp_);
   if (!(taskid == dest)) {
      if (sizeof(T) == sizeof(double)){
         if (tstp_ == -1){
            MPI_Send(mat_, (ntau_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
         } else {
            MPI_Send(les_, (tstp_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
            MPI_Send(ret_, (tstp_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
            MPI_Send(tv_, (ntau_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
         }
      }
      else {
         if (tstp_ == -1){
            MPI_Send(mat_, (ntau_ + 1) * element_size_, MPI_COMPLEX, dest, tag, MPI_COMM_WORLD);
         } else {
            MPI_Send(les_, (tstp_ + 1) * element_size_, MPI_COMPLEX, dest, tag, MPI_COMM_WORLD);
            MPI_Send(ret_, (tstp_ + 1) * element_size_, MPI_COMPLEX, dest, tag, MPI_COMM_WORLD);
            MPI_Send(tv_, (ntau_ + 1) * element_size_, MPI_COMPLEX, dest, tag, MPI_COMM_WORLD);
         }
      }
   } else {
      // do nothing
   }
}