PROGRAM MPIPRG
      INCLUDE 'mpif.h'
      INTEGER MYRANK, NPROCS, IERR, NAMELN
      CHARACTER*256 NAME
*
      CALL MPI_INIT(IERR)
      CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYRANK, IERR)
      CALL MPI_COMM_SIZE( MPI_COMM_WORLD, NPROCS, IERR)
*
      CALL MPI_GET_PROCESSOR_NAME(NAME, NAMELN, IERR)
      PRINT 1000, MYRANK, NAME(1:NAMELN)
1000  FORMAT(' Hello! My rank is ', I3, '.  My hostname is "', A, '"')
*
      CALL MPI_FINALIZE(IERR)
      STOP
      END