//
// Torbert, 10.7.2009
//

double arr[1000];
double x,y,z;
int    node;

MPI_Recv(arr,1000,MPI_DOUBLE,MPI_ANY_SOURCE,tag,MPI_COMM_WORLD,&status);
node=status.MPI_SOURCE;

MPI_Recv(&x,1,MPI_DOUBLE,node,tag,MPI_COMM_WORLD,&status);
MPI_Recv(&y,1,MPI_DOUBLE,node,tag,MPI_COMM_WORLD,&status);
MPI_Recv(&z,1,MPI_DOUBLE,node,tag,MPI_COMM_WORLD,&status);