NESSi  v1.0.2
The NonEquilibrium Systems Simulation Library

◆ Send_timestep()

template<typename T >
void cntr::herm_matrix_timestep< T >::Send_timestep ( int  tstp,
int  dest,
int  tag 
)

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

Purpose

Sends the herm_matrix_timestep 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 2643 of file cntr_herm_matrix_timestep_impl.hpp.

2643  {
2644  int taskid;
2645  MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
2646  int len = (2 * (tstp_ + 1) + ntau_ + 1) * element_size_;
2647  if (!(taskid == dest)) {
2648  assert(tstp == tstp_);
2649  if (sizeof(T) == sizeof(double))
2650  MPI_Send(data_, len, MPI_DOUBLE_COMPLEX, dest, tag, MPI_COMM_WORLD);
2651  else
2652  MPI_Send(data_, len, MPI_COMPLEX, dest, tag, MPI_COMM_WORLD);
2653  } else {
2654  }
2655 }