source/maxlik/src_FPy/mpi_name.c

   1 #include "mpi.h"
   2 #include <stdio.h>
   3 int main(int argc, char *argv[])
   4 {
   5     int rank, nprocs, len;
   6     char name[MPI_MAX_PROCESSOR_NAME];
   7
   8     MPI_Init(&argc,&argv);
   9     MPI_Comm_size(MPI_COMM_WORLD,&nprocs);
  10     MPI_Comm_rank(MPI_COMM_WORLD,&rank);
  11     MPI_Get_processor_name(name, &len);
  12     printf("Hello, world.  I am %d of %d on %s\n", rank, nprocs, name);fflush(stdout);
  13     MPI_Finalize();
  14     return 0;
  15 }