src/smpi/sample/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 }