1712 int numtasks,taskid;
1713 MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
1714 MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
1716 assert(
tstp == tstp_);
1717 if (
sizeof(T) ==
sizeof(
double)){
1719 MPI_Bcast(mat_, (ntau_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, root, MPI_COMM_WORLD);
1721 MPI_Bcast(les_, (tstp_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, root, MPI_COMM_WORLD);
1722 MPI_Bcast(ret_, (tstp_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, root, MPI_COMM_WORLD);
1723 MPI_Bcast(tv_, (ntau_ + 1) * element_size_, MPI_DOUBLE_COMPLEX, root, MPI_COMM_WORLD);
1727 MPI_Bcast(mat_, (ntau_ + 1) * element_size_, MPI_COMPLEX, root, MPI_COMM_WORLD);
1729 MPI_Bcast(les_, (tstp_ + 1) * element_size_, MPI_COMPLEX, root, MPI_COMM_WORLD);
1730 MPI_Bcast(ret_, (tstp_ + 1) * element_size_, MPI_COMPLEX, root, MPI_COMM_WORLD);
1731 MPI_Bcast(tv_, (ntau_ + 1) * element_size_, MPI_COMPLEX, root, MPI_COMM_WORLD);