MPI Example

main(int argc, char *argv[]) {

MPI_Comm com = MPI_COMM_WORLD;

MPI_Init(&argc,&argv);

MPI_Comm_size(com,&np);

MPI_Send(local+1,1,MPI_FLOAT,lnbr,10,com);

MPI_Recv(local,1,MPI_FLOAT,rnbr,10,com,&status);

MPI_Send(local+lsize,1,MPI_FLOAT,rnbr,10,com);

MPI_Recv(local+lsize+1,1,MPI_FLOAT,lnbr,10,com,&status);

ldiff = maxerror(local);

MPI_Allreduce(&ldiff,&diff,1,MPI_FLOAT,MPI_MAX,com);

MPI_Finalize();

}

Previous slide

Next slide

Back to first slide

View graphic version