only use the slice's public IP if NAT is enabled
[mpi-image.git] / scripts / hello.c
1 // sample mpi program
2 // from: http://www.slac.stanford.edu/comp/unix/farm/mpi.html
3 // compile it with mpicc hello.c -o hello
4
5 #include <stdio.h>
6 #include <mpi.h>
7
8 int main(int argc, char *argv[]) {
9   int numprocs, rank, namelen;
10   char processor_name[MPI_MAX_PROCESSOR_NAME];
11
12   MPI_Init(&argc, &argv);
13   MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
14   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
15   MPI_Get_processor_name(processor_name, &namelen);
16
17   printf("Process %d on %s out of %d\n", rank, processor_name, numprocs);
18
19   MPI_Finalize();
20 }