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)

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

      call MPI_Finalize(error)

      stop
      end