examples/smpi/first.c

   1 #include <stdio.h>
   2 #include <mpi.h>
   3
   4 int main(int argc, char *argv[])
   5 {
   6   int rank, size, err;
   7
   8   err = MPI_Init(&argc, &argv); /* Initialize MPI */
   9   if (err != MPI_SUCCESS) {
  10     printf("MPI initialization failed!\n");
  11     exit(1);
  12   }
  13
  14   err = MPI_Comm_size(MPI_COMM_WORLD, &size);
  15   if (err != MPI_SUCCESS) {
  16     printf("MPI Get Communicator Size Failed!\n");
  17   }
  18
  19   err = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  20   if (err != MPI_SUCCESS) {
  21     printf("MPI Get Communicator Rank Failed!\n");
  22   }
  23
  24   if (0 == rank) {
  25     printf("root node believes there are %d nodes in world.\n", size);
  26   }
  27
  28   sleep(20);
  29
  30   err = MPI_Finalize();         /* Terminate MPI */
  31   return 0;
  32 }