MPI_Status status;
MPI_Recv(size, 3, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : <-- RecvDataArrayDouble " << size[0] << std::endl;
if (size[0]!=(size[1]*size[2]))
throw INTERP_KERNEL::Exception("Problem in RecvDataArrayDouble incoherent sizes");
MPI_Status status;
MPI_Recv(size, 3, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : <-- RecvDataArrayDouble " << size[0] << std::endl;
if (size[0]!=(size[1]*size[2]))
throw INTERP_KERNEL::Exception("Problem in RecvDataArrayDouble incoherent sizes");