1
1

New examples for the updated MPI Java bindings

This commit was SVN r29269.
Этот коммит содержится в:
Jeff Squyres 2013-09-26 22:48:02 +00:00
родитель 2c7975eb86
Коммит e139f4427a
2 изменённых файлов: 8 добавлений и 8 удалений

Просмотреть файл

@ -30,8 +30,8 @@ class Hello {
MPI.Init(args);
int myrank = MPI.COMM_WORLD.Rank();
int size = MPI.COMM_WORLD.Size() ;
int myrank = MPI.COMM_WORLD.getRank();
int size = MPI.COMM_WORLD.getSize() ;
System.out.println("Hello world from rank " + myrank + " of " + size);
MPI.Finalize();

Просмотреть файл

@ -19,8 +19,8 @@ class Ring {
int prev;
int message[] = new int [1];
int myrank = MPI.COMM_WORLD.Rank() ;
int size = MPI.COMM_WORLD.Size() ;
int myrank = MPI.COMM_WORLD.getRank() ;
int size = MPI.COMM_WORLD.getSize() ;
/* Calculate the rank of the next process in the ring. Use the
modulus operator so that the last process "wraps around" to
@ -37,7 +37,7 @@ class Ring {
message[0] = 10;
System.out.println("Process 0 sending " + message[0] + " to rank " + next + " (" + size + " processes in ring)");
MPI.COMM_WORLD.Send(message, 0, 1, MPI.INT, next, tag);
MPI.COMM_WORLD.send(message, 1, MPI.INT, next, tag);
}
/* Pass the message around the ring. The exit mechanism works as
@ -49,14 +49,14 @@ class Ring {
and can quit normally. */
while (true) {
MPI.COMM_WORLD.Recv(message, 0, 1, MPI.INT, prev, tag);
MPI.COMM_WORLD.recv(message, 1, MPI.INT, prev, tag);
if (0 == myrank) {
--message[0];
System.out.println("Process 0 decremented value: " + message[0]);
}
MPI.COMM_WORLD.Send(message, 0, 1, MPI.INT, next, tag);
MPI.COMM_WORLD.send(message, 1, MPI.INT, next, tag);
if (0 == message[0]) {
System.out.println("Process " + myrank + " exiting");
break;
@ -67,7 +67,7 @@ class Ring {
to be received before the program can exit */
if (0 == myrank) {
MPI.COMM_WORLD.Recv(message, 0, 1, MPI.INT, prev, tag);
MPI.COMM_WORLD.recv(message, 1, MPI.INT, prev, tag);
}
MPI.Finalize();