When I run my mpi code,which has mpi_scatter it hangs.It doesn't
complain of seg fault.Anyone know the reason?!
for(igen=0;igen<ngen;igen++)
{
k=1;
gettemplate(&Templ);
MPI_Get_processor_name(processor_name,&namelen);
MPI_Scatter(chrom,size,MPI_FLOAT,rbuf,size,MPI_FLOAT,0,
MPI_COMM_WORLD);
//The program hangs in this place as it waits for MPI_barrier.So,
how //to check the mpi_scatter performance
MPI_Barrier(MPI_COMM_WORLD);
for(ic=0;ic<size;ic++)
fitness[ic]=rbuf[ic];
cout<<endl;
fitness[ic]=servant(Templ,rbuf,nfgs,size,Arr_subs);
cout<<"RBUF: "<<*rbuf<<endl;
cout<<"Fitness: "<<fitness[ic]
<<"at: "<<processor_name<<endl;
MPI_Barrier(MPI_COMM_WORLD);
}
Thanks
|
