include "mpif.h"
      integer rank, nprocs, len
      character(MPI_MAX_PROCESSOR_NAME) name

      call MPI_Init(argc,argv,ierr)
      call MPI_Comm_size(MPI_COMM_WORLD,nprocs,ierr)
      call MPI_Comm_rank(MPI_COMM_WORLD,rank,ierr)
      call MPI_Get_processor_name(name, len,ierr)
      print *,"Hello, world.  I am",rank," of ",nprocs," on ",
     & name(:len)
      call MPI_Finalize(ierr)
      end