include 'mpif.h'
      
      integer ierr
      integer status(MPI_STATUS_SIZE)    
      integer my_rank
      
      call MPI_Init(ierr) 
     
      call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)
     
      WRITE(6,*)'Hello World from ',my_rank
      
      call MPI_Finalize(ierr)
      END