source/maxlik/src_FPy/mpi_name.f

   1       include "mpif.h"
   2       integer rank, nprocs, len
   3       character(MPI_MAX_PROCESSOR_NAME) name
   4
   5       call MPI_Init(argc,argv,ierr)
   6       call MPI_Comm_size(MPI_COMM_WORLD,nprocs,ierr)
   7       call MPI_Comm_rank(MPI_COMM_WORLD,rank,ierr)
   8       call MPI_Get_processor_name(name, len,ierr)
   9       print *,"Hello, world.  I am",rank," of ",nprocs," on ",
  10      & name(:len)
  11       call MPI_Finalize(ierr)
  12       end