Bcast_timestep()

template<typename T >

void cntr::function< T >::Bcast_timestep	(	int	tstp,
		int	root
	)

Broadcast a time step of the function using MPI

Purpose

Broadcast a time step of the function using MPI. The value at one time step is broadcasted from the root process to all other processes.

Parameters

tstp	the time step. The value at time point tstp is broadcasted
root	the root index. The process indexed by root will send its data. Others will receive data.

Definition at line 1097 of file cntr_function_impl.hpp.

                                                 {
  int numtasks,taskid;
  cdmatrix ftemp;
  ftemp.resize(size1_,size2_);
  MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
  MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
    if(taskid==root) this->get_value(tstp,ftemp);
    // if(sizeof(T)==sizeof(double)) MPI::COMM_WORLD.Bcast(ftemp.data(),ftemp.size(),MPI::DOUBLE_COMPLEX,root);
    // else MPI::COMM_WORLD.Bcast(ftemp.data(),ftemp.size(),MPI::COMPLEX,root);
    if(sizeof(T)==sizeof(double)) MPI_Bcast(ftemp.data(),ftemp.size(),MPI_DOUBLE_COMPLEX,root,MPI_COMM_WORLD);
    if(taskid!=root) this->set_value(tstp,ftemp);
}