program main
      include "mpif.h"
      integer rank, size, RESULTLEN 
      integer argc
      character *4 argv
      character(MPI_MAX_PROCESSOR_NAME) name
      call MPI_Init( ierr );
      call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
      call MPI_Comm_size( MPI_COMM_WORLD, size, ierr )
      print 10, rank, size
      call MPI_GET_PROCESSOR_NAME( NAME, RESULTLEN, IERR)
      print *,"My name is ",NAME(:RESULTLEN)
      call MPI_Finalize(ierr);
   10 format("Hello world! I'm",i3," of",i3)
      return
      end