added
parent
77d248676a
commit
22cd83bfe6
@ -1,9 +1,11 @@
|
||||
MPICC = mpicc
|
||||
CFLAGS += -g
|
||||
all: example example2
|
||||
all: example example2 easysendrecv
|
||||
example: example.c
|
||||
$(MPICC) $(CFLAGS) $(LDFLAGS) $? $(LDLIBS) -o $@
|
||||
example2: example2.c
|
||||
$(MPICC) $(CFLAGS) $(LDFLAGS) $? $(LDLIBS) -o $@
|
||||
easysendrecv: easysendrecv.c
|
||||
$(MPICC) $(CFLAGS) $(LDFLAGS) $? $(LDLIBS) -o $@
|
||||
clean:
|
||||
rm -f example example2
|
||||
|
@ -0,0 +1,17 @@
|
||||
#include "mpi.h"
|
||||
#include <string.h>
|
||||
#include <stdio.h>
|
||||
int main( int argc, char **argv){
|
||||
char message[20]; int myrank; MPI_Status status;
|
||||
MPI_Init( &argc, &argv );
|
||||
MPI_Comm_rank( MPI_COMM_WORLD, &myrank );
|
||||
if (myrank == 0){ /* code for process zero */
|
||||
strcpy(message,"Hello, there");
|
||||
MPI_Send(message, strlen(message)+1, MPI_CHAR, 1, 99, MPI_COMM_WORLD);
|
||||
}
|
||||
else if (myrank == 1){ /* code for process one */
|
||||
MPI_Recv(message, 20, MPI_CHAR, 0, 99, MPI_COMM_WORLD, &status);
|
||||
printf("received :%s:\n", message);
|
||||
}
|
||||
MPI_Finalize();
|
||||
return 0; }
|
Loading…
Reference in New Issue