program hello
      include 'mpif.h'

      integer noprocs, nid, error

      call MPI_Init(error)
      call MPI_Comm_size(MPI_COMM_WORLD, noprocs, error)
      call MPI_Comm_rank(MPI_COMM_WORLD, nid, error)

c     if (nid .eq. 0) then
         write(6,*)'Hello from processor', nid, ' of',noprocs
c     end if

      call MPI_Finalize(error)

      stop
      end