PROGRAM hello
      USE MPI
!*     
      INTEGER ierr, myproc
!*    
      CALL mpi_init(ierr)
      CALL mpi_comm_rank(MPI_COMM_WORLD, myproc, ierr)
!*
      PRINT *, "Hello world! I'm node", myproc
!*
      CALL mpi_finalize(ierr)
!*
      END