Basic HTML version of Foils prepared August 29 98

Foil 45 MPI Example

From Designing and Building Parallel Programs I: Introduction DoD Modernization Tutorial -- 1995-1998. by Ian Foster, Gina Goff, Ehtesham Hayder, Chuck Koelbel
1 main(int argc, char *argv[]) {
2 MPI_Comm com = MPI_COMM_WORLD;
3 MPI_Init(&argc,&argv);
4 MPI_Comm_size(com,&np);
5 MPI_Send(local+1,1,MPI_FLOAT,lnbr,10,com);
6 MPI_Recv(local,1,MPI_FLOAT,rnbr,10,com,&status);
7 MPI_Send(local+lsize,1,MPI_FLOAT,rnbr,10,com);
8 MPI_Recv(local+lsize+1,1,MPI_FLOAT,lnbr,10,com,&status);
9 ldiff = maxerror(local);
10 MPI_Allreduce(&ldiff,&diff,1,MPI_FLOAT,MPI_MAX,com);
11 MPI_Finalize();
12 }
in Table To:

© Northeast Parallel Architectures Center, Syracuse University, npac@npac.syr.edu

If you have any comments about this server, send e-mail to webmaster@npac.syr.edu.

Page produced by wwwfoil on Sun Apr 11 1999