if (rank==0) {
for(unsigned j=1; j<p; j++){
cout<<endl<<"Hi I am inside send "<<j<<"
of rank 0"<<endl;
unsigned nblks=1;unsigned begin2=2;
unsigned l2=3;
// unsigned nblks = partition[j
+1]-partition[j];
// blcluster* bllist1 = bllist
+partition[j];
//dimx(bllist1, nblks, begin2,
l2); // starting index and length of vector x to be sent
unsigned index1[] = {l2, nblks, begin2};
MPI::COMM_WORLD.Send(index1, 3,
MPI::UNSIGNED, 4, j);
}
}
else {
cout<<endl<<"Hi I am inside receive of rank
"<<rank<<endl;
unsigned index1[3];
MPI::COMM_WORLD.Recv(index1, 3, MPI::UNSIGNED,4 , 0);
cout<<endl<<"I a mou t<<"<<endl;
}
MPI::Finalize();
I have written this simple code and it gets stuck or held
giving the response as below
Please help me out wat could be the problem
Hi this is my rank: 1
Hi I am 1
Hi I am inside receive of rank 1
Hi this is my rank: 0
Hi I am inside send 1 of rank 0
Hi I am inside send 2 of rank 0
Hi I am inside send 3 of rank 0
Hi I am inside send 4 of rank 0
Hi I am inside send 5 of rank 0
Hi I am inside send 6 of rank 0
Hi I am inside send 7 of rank 0
Hi this is my rank: 4
Hi I am 4
Hi I am inside receive of rank 4
Hi this is my rank: 7
Hi I am 7
Hi I am inside receive of rank 7
Hi this is my rank: 5
Hi I am 5
Hi I am inside receive of rank 5
Hi this is my rank: 6
Hi I am 6
Hi I am inside receive of rank 6
Hi this is my rank: 2
Hi I am 2
Hi I am inside receive of rank 2
Hi this is my rank: 3
Hi I am 3
Hi I am inside receive of rank 3
|
